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-REM_ 
IDENTIFICATION 
PRODUCT ID: AC -T722A-MC 
PRODUCT TITLE: CZTSDAO TSUOS DIAG PART 4 
DEPARTMENT : COMPUTER SPECIAL SYSTEMS/PPG 
DATE: APRIL 26, 1983 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. OIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED By DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1982,1983 BY DIGITAL EQUIPMENT CORPORATION 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THIS IS A POP-11 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 

OF A_TSUOS MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11//23 SYSTEM 
(Q-BUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XxDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 


POP-11 PROCESSOR AND MEMORY 

CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 

(28K USEABLE AND 4K RESERVED FOR I/0 PAGE) 

TSUOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 

CONSOLE TERMINAL 

PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXDP+) 


1.3 RELATED DOCUMENTS AND STANDARDS 


DIGI/AL EQUIPMENT CORPORATION DOCUMENTS: 


1. CHQUS XXDP+ USERS MANUAL; DOCUMENT NUMBER AC -F 348E -MC 
DATE: 14 JULY 1980. 


2. TSUOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK -TSU0S-UG-001 
DATE: AUGUST 1982 


3. TSUOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK -TSUOS-TM-001 


DATE: AUGUST 1982 


4. TSUOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK -TSUOS-IN-001 


DATE: AUGUST 1982 


1.4 DIAGNOSTIC HIERARCY PREREQUISITES 


FUNCTIONAL PDP-11 CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP- ) 


SEQ 003 . 
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1.5 ASSUMPTIONS 

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORTED. 

or Taee. BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 
CZTSAA,CZTSBA AND CZTSCA HAVE SUCESSFULLY RUN. 

2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XxXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDOS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 
START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE OIAGNOSTIC WITHOUT INITIALIZING 
CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER *C) 
PROCEED CONTINUE FROM AN ERROR HALT 
EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 
ADD ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 

ba CONSIDERED TO BE ACTIVE AT START TIME 
DROP DEACTIVATE A UNIT 
PRINT PRINT STATISTICAL iiv"©ORMATION CIF IMPLEMENTED 

BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 
FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 
ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START”. 


2.1.1 OPERATOR COMMANDOS 


THE TSUOS DIAGNOSTIC IS A POP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM, ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 


CHQUS XXDP+ USERS MANUAL ,DOCUMENT NUMBER AC-F 348E-MC. THE USER ENTRY IS IN QUOTES. 


BOOT THE DIAGNOSTIC XxDP MEDIA 


.R VTSD?? 

DIAG. RUN-TIME SERVICES REV D. APR 79 
CZTSD-B-0 

#ee6TSUOS LOGIC DIAGNOSTICeses 

i IS TSu0s 

> 


SEQ 004 . 
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2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD”. 


SWITCH EFFECT 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
7PASS: 00000 EXECUTE DDDDD PASSES (ODDD0 = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3. 


7EOP : 00000 REPORT END OF PASS MESSAGE AFTER EVERY 
DDODD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 


IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS:1-5/PASS: 1000/E0P : 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-5" INSTEAD OF “/TESTS:1-5". 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 


ee 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR, ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
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ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START ANDO ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IERe INHIBIT ALL ERROR REPORTS 

IBRe INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FTRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IXEe INHIBIT EXTENDED ERROR REPORTS ( THOSE 
CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IOR INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE AUTODROP CODE 
LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XxXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE: IER: BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION By TYPING “CHANGE HW (L) 2?” 

YOU MUST ANSWER “Y” AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE OIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE “CHANGE HW?” QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A “N” (NO) RESPONSE TO THE “CHANGE HW?” QUESTION, THE DIAGNOSTIC WILL 


RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 


SEQ 006 
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TSBA/TSOB = 172520, VECTOR = 224 


ON A “Y" (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE, IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(D)” INA —_o INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A RESPONSE. AN "(QO)" INDICATES AN OCTAL NUMBER IS BEING 
oot Ban wis oy INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 
oye Y ° “ ” 


@ UNITS (D0) ? <ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT O 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 

UP TO 4 TSUOS CONTROLLERS PER POP-11 AND UP TO 2 DRIVES PER CONTROLLER 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY “CHANGE Sw (L) ?” 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

“Y", THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N ? <TYPE “Y” TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. > 


2.6 EXTENDED P-TABLE DIALOGUE 
WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 


SEQ 007 


USER DOCUMENTATION 


Ii 


MACRO M1113 0O1-FEB-84 18:55 


IN A_TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 

A DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7. THERE 
TS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 

TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


® UNITS (D0) 2? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? O<CR> 
Q-FACTOR (0) 0 2? 1<CR> 


UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 1<CR> 
Q-FACTOR (0) 1 ? O<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5S 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? S<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1 ? <CR> 


SEQ 008 
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NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
RT as THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


@ UNITS (D) ? 8<CR> 
UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 


SUB-DEVICE @ (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<Cxx> 
SUB-DEVICE @ (0) ? 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 

UNIT 7 


CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES ANDO Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR a nae IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 

“-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2. 3, 4 AND 5 WERE SPECIFIED. (CIF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 

THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN RCCL FED IN ONE PASS AS 
SHOWN BELOW. 


® UNITS (0) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 0-7<CR> 
Q-FACTOR (0) f¢) ? 0.1,0,....1,1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


*. 


SEQ 009 
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2.7 QUICK START-UP PROCEDURE (XxDP-) 
TO START-UP THIS PROGRAM: 
1. BOOT XXOP-+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE "R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


TYPE “START” 

ANSWER THE "CHANGE HW” QUESTION WITH “Y” 
ANSWER ALL THE HARDWARE QUESTIONS 
ANSWER THE “CHANGE SW” QUESTION WITH “N” 


WHEN YOU FOLLOW THIS PROCEDUR® YOU wfLL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED By 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTTON 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXxx 
ERROR MESSAGE 


«WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE see FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR —— 
UNIT NUMBER = - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = Tesi AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE “IER”, “IBR” OR “IXE” FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 


vn ou 


Li 
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BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


ERROR MESSAGE EXAMPLE 1 


THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WCRD RETURNED 

TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 

yo Seas REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 


TST: 016 FIFO EXERCISER TEST 
CZTSO HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS CIN WORD 9) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNALS IN WORD #8: - DESIGNATOR <BIT > 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2> 
IRESV2<14> IIDENT<11> IHER <8> IONL<S> IFBY<1> 
IRESV1<13> ICER <10> ISPEED<7> ILOP<4> IFPT<O> 

TAPE BUS SIGINALS IN WORD 69: 

DATMIS<7> ILW<6> OUTRDY<S> INRDY<4> 

MESSAGE BUFFER ADDRESS = 047352 
MESSAGE BUFFER CONTENTS: 

WORD #0 EXPD: 100020 RECV: 100020 xXOR: 000000 
WORD #1 EXPD: 000012 RECV: 000012 xXOR: 000000 


WORD #2 EXPD: 000000 RECV: 000000 xXOR: 000000 
WORD #3 EXPD: 000010 RECV: 000010 xXOR: 000000 
WORD #4 EXPD: 000000 RECV: 000000 XOR: 000000 


WORD #9 EXPD: 000074 RECV: 000034 xOR: 000040 


ERROR MESSAGE EXAMPLE 2 


THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE,IN THIS 
ma ane ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 
Y ° 


CZTSOD HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR = 100214 

TSSR BITS SET: SC,SSR 

TERMINATION CLASS CODE = UNRECOVERABLE ERROR 

PACKET ADDRESS = 026420 


PACKET WORD # = 000000 
PACKET WORD @ = 


ERROR MESSAGE EXAMPLE 3 
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THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 


CZTSO HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 XOR: 000200 


4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE TE DIAGNOSTIC WAS STARTED. 
THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


SUCCESSFUL RUN EXAMPLE (PDP-11) 


DR>STA/FLA:PNT : HOE 

UNITS (D) ? 1 

UNIT 0 

DEVICE ADDRESS (0) 172520 ? <CR> . 
VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? NcCR> 


THE ABOVE COMMAND WILL START THE OIAGNOSTIC. THE COMMAND HAS TWO 
—— ON WHICH ARE “PRINT EACH TEST NBR AS EXECUTED” AND “HALT ON 


TST: 001 SKIP TAPE MARKS TEST 

TST: O02 NO-OP AND INITIALIZE TEST 

TST: 003 ERASE AND OPERATION INCOMPLETE TEST 
TST: 004 DATA PARITY TEST 

TST: OOS TEST OF OPERATIONS AT EOT TEST 

TST: 006 EXTENDED-MODE FUNCTIONS TEST 

TST: 007 RECORD BUFFERING TEST 

TST: 008 FUNCTION TIMING TEST 


O ERRORS 


NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT HAS 
BEEN SPECIFIED WITH THE “/PASS:” SWITCH. 


PROGRAM RUN TIMES 
THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE FIGURES ARE 


TO BE USED AS A_ GUIDE. THE TIMING WAS DONE ON A POP-11 
PROCESSOR WITH A LA34 CONSOLE. 


SEQ O12 
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THE PROGRAM RUNS IN TWO MODES; NO ITERATIONS AND DEFAULT MODE. 


NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED By 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 


INHIBIT ITERATIONS QUESTION WITH A "“Y” (YES). 


TEST N/I NUMBER DEF 
NUMBER SECS. ITER SECS. 


BAIDU S whe 
Pere rere eee 
Pere rere pee 

ocoooooor 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 37 IN ONE COMMAND: 


Q.V. 1S SECONDS 
DEFAULT 16 SECONDS 


5.0 DEVICE INFORMATION TABLES 
WHENEVER THE PROGRAM IS STARTED, VIA THE STACRT) COMMAND, 
THE SUPERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER 
CHANGES : 

CHANGE HW (L) ? 


# UNITS (0) ? <ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT O 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CCONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 


SELECTED FOR TESTING. 


IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
a yy tb CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 
LLOWS: 


SEQ 013 


USER DOCUMENTATION 


TEST 


TEST 


TEST 


TEsT 


TEST 


TEST 


TEST 


Be 
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CHANGE SW (L) ? 


INHIBIT ITERATIONS (L) N ? 


6.0 TEST SUMMARIES 


1: WRITE TAPE MARK RETRY 


THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 
REVERSE, ERASE, WRITE TAPE MARK). 


2: SKIP TAPE MARKS 


THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS 

FORWARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER OPERATION 
UNDER CONTROL OF ALL gogo OF THE ENABLE SKIP TAPE MARKS 
STOP CESS) AND ENABLE TAPE MARKS STOP OFF BOT (ENB) BITS SPECIFIED 
BY THE WRITE CHARACTERISTICS COMMAND. 


3: NO-OP ("CLEAN TAPE”) AND INITIALIZE 


THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE”) AND INITIALIZE 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


4: ERASE AND OPERATION INCOMPLETE 


VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 
POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 


S: DATA PARITY TEST 


THIS TEST VERIFIES THAT THE DATA PARITY CIRCUITRY IN BOTH THE CONTROLLER AND THE 
TRANSPORT IS OPERATING PROPERLY BY FORCING DATA RECORDS WITH WRONG PARITY TO BE 
WRITTEN ONTO TAPE AND CHECKING THE RESULTS OBTAINED WHEN THE DATA IS READ. 


6: OPERATIONS AT EOT 


THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


7: EXTENDED MODE FEATURES 


THIS TEST VERIFIES THE OPERATION OF COMMANDS ONLY AVAILABLE WHEN 
oat CONTROLLER IS IN THE EXTENDED FEATURES MODE. THESE COMMANDS 


REWIND WITH IMMEDIATE INTERRUPT 


SEQ 614 


USER DOCUMENTATION 


Ce 
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IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE, IT 
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND. 


TEST 8: RECORD BUFFERING 


THIS TEST VERIFIES THAT RECORD BUFFERING, USED FOR WRITE DATA 
AND READ NEXT COMMANDS, OPERATES PROPERLY AND IS PROPERLY 
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. IF T 

M74SS CONTROLLER MODULE IS NOT ALREADY IN EXTENDED FEATURES MODE 
CAS CONTROLLED BY THE DIP SWITCH ON THE MODULE), IT IS PLACED 
INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 
BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 
PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. 


TEST 9: FUNCTION TIMING 


THIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 
RECORDS, GAPS, AND EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW 
AND HIGH SPEED MODES ARE TESTED. IT IS ALSO VERIFIED THAT A 

SKIP TAPE MARKS COMMAND WITH A COUNT OF 6 OF MORE, . THE 
TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF 

REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM, THE TEST OPERATES BY 
TIMING VARIOUS TAPE-MOTION OPERATIONS, USING A NUMBER OF 
DIFFERENT TEST RECORD LENGTHS. 


7.0 MAINTENANCE HISTORY 
REVISION A - JUNE 1983 
REVISION 6 - APRIL 1985 
- FIXED TWO PROBLEMS, ONE IN TEST 1 AND THE 
OTHER IN TEST 8. 


REF. DOYLE TO GRASKY “TSUOS CZTSDA DIAGNOSTIC 
PATCH"; 23-DEC-82. 


SEQ 015 


TSve 


- PROGRAM HEADER 


eae od 
fro &whe 


13 


002000' 
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. TITLE 
. SBTTL 
-PSECT 
-MCALL 
svc 


-ENABLE LC 


De 


TSV2 - PROGRAM HEADER 


PROGRAM HEADER 
ABS 


svc 


-NLIST BEX,CND 
ENABL AMA 


-*. +2000 
BGNMOD TSV2 


TSVe:: 


gee 


s INITIALIZE SUPERVISOR MACROS 


s THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNSW,.BGNSF T,BGNAU,BGNOU,BGNRPT 
HE CZTSO,A,0,655. ,0 
sDIAGNOSTIC NAME 


LSNAME: : 


LSREV:; 

LSDEPO:: 
LSUNIT::— 
LSTIMU::- 
LSHPCP:: 
LSSPCP:: 
LSHPTP::— 
LSSPTIP:: 
LSLADP::— 
LSSTA:: - 
LsCo:: 

LSDTYP::. 
LSAPT:; 

LSDTP:: 


ADER 


WORD 


7C/ 
42/ 
/T/ 
4S/ 
/0/ 


L SHARD 
L$SOFT 
LSHwW 
L$Sw 
LSLAST 


ooo 


sREVISION LEVEL 


30 


sNUMBER OF UNITS 
sLONGEST TEST TIME 
sPOINTER TO H.W. QUES. 
sPOINTER TO S.W. QUES. 


sPTR. TO DEF. H.W. PTABLE 


sPTR, 
sOIAG, 


sRESERVED FOR APT STATS 


TO S.W. PTABLE 
END ADDRESS 


sOIAGNOSTIC TYPE 
3;APT EXPANSION 


sPTR, 


TO DISPATCH TABLE 


SEQ 016 


EQ 
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PROGRAM HEADER 
002040 002124' .WORD LS&DISPATCH 
002042 LSPRIO:: sOIAGNOSTIC RUN PRIORITY 
002042 000000 . WORD 0 
002044 LSENVI:: sFLAGS DESCRIBE HOW IT WAS SETUP 
002044 000000 .WORD 0 
002046 LSEXPlL:: sEXPANSION WORD 
002046 000000 .WOR 
002050 LSMREV:: 3SVC REV AND EDIT @ 
002050 003 .BYTE CSREVISION 
002051 003 BYTE CSEDIT 
002052 LSEF:: sO0IAG. EVENT FLAGS 
002052 000000 -WORD 0 
002054 000000 -WORD O 
002056 L$SPC:: 
002056 900000 -WORD O 
002060 LSDEVP:: : POINTER TO DEVICE TYPE LIST 
002060 003374' -WORD LS$OvTYP 
002062 LSREPP:; ;PTR. TO REPORT CODE 
002062 022514' .WORD LSRPT 
002064 LSEXP4:: 
002064 000000 -WORD O 
002066 LSEXPS:: 
002066 000000 -WORD O 
002070 LSAUT:: 3PTR, TO ADD UNIT CODE 
002070 022202’ -WORD LSAU 
002072 LSDUT:: sPTR. TO OROP UNIT CODE 
002072 022300' -WORD LS$DuU 
002074 LS$LUN:: 3LUN FOR EXERCISERS TO FILL 
002074 000000 -WORD O 
002076 LSDESP:;: sPOINTER TO DIAG. DESCRIPTION 
002076 003402: -WORD LSDESC 
002100 L$LOAD:: sGENERATE SPECIAL AUTOLOAD EMT 
002100 104035 EMT ESLOAD 
002102 LSETP:: sPOINTER TO ERRTBL 
002102 000000 .WORD O 
002104 LSICP:: 3PTR, TO INIT CODE 
002104 021406: -WORD LSINIT 
002106 LSCCP:: sPTR. TO CLEAN-UP CODE 
002106 022466' -WORD LSCLEAN 
002110 LSACP:: :PTR. TO AUTO CODE 
002110 022406' .WORD LSAUTO 
002112 LSPRT:: :PTR, TO PROTECT TABLE 
002112 021376’ .WORD LS$PROT 
002114 LSTEST: : ; TEST NUMBER 
002114 000000 -WORD 0 
002116 LSOLY:: s;DELAY COUNT 
002116 000000 -WORD O 
002120 LSHIME:: sPTR, TO HIGH MEM 
se 002120 000000 -WORD 0 
32 .SBTTL OISPATCH TABLE 
= 
| aed 
35 ; THE DISPATCH TABLE CONTAINS THE STARTING ADORESS OF EACH TEST. 
- ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
: ty 


TSV2 - PROGRAM HEADER 


DISPATCH TABLE 
39 002122 


000011 
023276' 


101010' 


000003 


172520 
000224 
000200 


Fe 
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DISPATCH 9 
.WORD 9 
LS$DISPATCH: : 
. WORD Tl 
. WORD T2 
.» WORD T3 
. WORD T4 
- WORD TS 
.» WORD T6 
WORD T7 
WORD T8 
WORD T9 
.SBTTL DEFAULT HARDWARE P-TABLE 


see 
3; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 


; THE TEST-DEVICE PARAMETERS. 


THE STRUCTURE OF THIS TABLE 


; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 
sDEFAULT HARD -P-TABLE 


1ST (OF 2) REGISTERS. 
INTERRUPT VECTOR 
INTERRUPT PRIORITY. 


BGNHW OFPTBL 

. WORD L10000 -L $HW/2 
LSHW:: 
OFPTBL: 

. WORD 172520 

. WORD 224 

. WORD PRIO4 

ENDHW 
L10000: 

-SBTTL SOFTWARE P-TABLE 


see 
3; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


gc? 
BGNSW 
. WORD 
L$SwW:: 
SFPTBL:: 


TRANSTST: : 
NOITS:: 


SFPTBL 
L10001-L$SwW/2 


-WORD O ; ENABLE TEST OF TRANSPORT(S) IF =1 
-WORD 0 s INHIBIT ITERATION OPTION. 

s ... O = ITERATE. 

s ...NZ = INHIBIT ITERATE. 
-WORD 15. s LOCAL (PER TEST) ERROR LIMIT 
-WORD 200. s GLOBAL (PER UNIT) ERROR LIMIT 


SEQ 018 


Ge 
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SOFTWARE P-TABLE 
7 -TITLE TSV3 - GLOBAL AREAS 
3 [ -SBTTL GLOBAL EQUATES SECTION 
19 
20 002170 BGNMOD TSv3 
002170 TSV3:: 
21 
22 
Hy -SBTTL GLOBAL EQUATES SECTION 
25 3ee 
26 ; THE GLOBAL EQUATES SECTION + Samaaa PROGRAM EQUATES THAT 
27 ; ARE USED IN MORE THAN ONE TES 
39 ~*. 
33 002170 EQUALS ; GET STANDARD EQUATES. 
: 
; BIT DIFINITIONS 
. 
100000 BIT15== 100000 
040000 BIT14== 40000 
020000 BIT13== 20000 
010000 BIT12== 10000 
004000 BIT11== 4000 
002000 BIT10== 2000 
001000 BITO9== 1000 
000400 BITO8== 400 
000200 BITO7== 200 
000100 BITO6== 100 
000040 BITOS== 40 
000020 BITO4== 20 
000010 BITO3== 10 
000004 BITO2== 4 
000002 BITO1== 2 
000001 BITOO== 1 
H 
001000 BIT9== BITO9 
000400 BIT8== BITOS 
0002 v0 BIT7== BITO7 
000100 BIT6== BITO6 
000040 BITS== BITOS 
000020 BIT4=s= BITO4 
000010 BIT3=*= BITO3 
000004 BIT2-= BITO2 
000002 BIT1i=s= BITOL 
000001 BITO== BITOO 
t 
; EVENT FLAG DEFINITIONS 
3 EF32:EF 17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
a 
000040 EF .START== 32. : START COMMAND WAS ISSUED 
000037 EF .RESTART== 31. 3 RESTART COMMAND WAS ISSUED 
000036 EF , CONTINUE == 30. ; CONTINUE COMMAND WAS ISSUED 
000035 EF .NEW== 29. ; A NEW PASS HAS BEEN STARTED 


000034 EF ,PWR== 28. s A POWER-FAIL/POWER-UP OCCURRED 
é 
° 


He 
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GLOBAL EQUATES SECTION 


; PRIORITY LEVEL DEFINITIONS 


3 
000340 PRIO7== 340 
000300 PRIO6== 300 
000240 PRIOS*= 240 
000200 PRIO4== 200 
000140 PRIO3== 140 
000100 PRIO2*= 100 
000040 PRIO1== 40 
000000 PRIOO== 0 

© 

sOPERATOR FLAG BITS 

3 
000004 EVL== 4 
000010 LOT== 10 
000020 ADR == 20 
000040 I0U== 40 
000100 ISR== 100 
000200 UAM== 200 
000400 BOE == 400 
001000 PNT== 1000 
002000 PRI== 2000 
004000 IXE*= 4000 
010000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 

- 100000 HOE== 100000 
35 002170 KT11 sDEFINE MEMORY MANAGEMENT REGISTERS 


.SBTTL MEMORY MANAGEMENT DEFINITIONS 
3#KT11 VECTOR ADDRESS 


000250 MMVEC= 250 
3#KT11 STATUS REGISTER ADDRESSES 
177572 SRO= 177572 
177574 SR1= 177574 
177576 SRe= 177576 
172516 SR3= 172516 
IF NB 


s#USER "I" PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 


.IF NB 

s#USER “D” PAGE DESCRIPTOR REGISTORS 
UDPORO= 177620 

UDPOR1= 177622 

UDPOR2= 177624 

UOPOR3= 177626 

UDPOR4= 177630 

UDPORS= 177632 

UDPDR6= 177634 

UDPDR7= 177636 
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MEMORY MANAGEMENT DEFINITIONS 


‘ 


-ENDC 


Ie 


:4USER “I” By ADDRESS REGISTERS 


UIPARO= 
UIPARI«= 
UIPAR2= 


UDPARO= 


177660 


SIPORO= 172200 


;@SUPERVISOR "D" 
SDPORO= 


s@¢SUPERVISOR “I” 


SIPARO= 


SDPARO= 
SOPAR1= 
SDOPAR2= 


172202 
172204 
172206 
172210 
172212 
172214 
172216 


172220 


172240 
172242 
172244 
172246 
172250 
172252 
172254 
172256 


NB 
;#SUPERVISOR “D” 


172260 
172262 
172264 


PAGE DESCRIPTOR REGISTERS 


PAGE ADDRESS REGISTERS 


PAGE ADDRESS REGISTERS 


SEQ 021 
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172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 


172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 


Je 
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MEMORY MANAGEMENT DEFINITIONS 


SDPAR3= 172266 
SDPAR4= 172270 
SDPARS= 172272 
SDPAR6= 172274 
SDPAR7= 172276 
-ENOC 


-ENOC 
s*KERNEL “I” PAGE DESCRIPTOR REGISTERS 
KIPDRO= 172300 
KIPOR1= 172302 
KIPDR2= 172304 
KIPORS= 172306 
KIPOR4= 172310 
KIPORS= 172312 
KIPOR6= 172314 
KIPOR7= 172316 
.IF NB 
;@KERNEL “D” PAGE 
DESCRIPTOR REGISTERS 
KDPDRO= 172320 
KDPOR1= 172322 
KDPOR2= 172324 
KOPDR3= 172326 
KDPOR4= 172330 
KOPORS= 172332 
KDPOR6= 172334 
KOPOR7= 172336 
-ENOC 
s*KERNEL “I” PAGE ADDRESS REGISTERS 
KIPARO= 172340 


+ IF NB 
s#KERNEL “D” PAGE ADDRESS REGISTERS 
KDPARO= 172360 
KDPAR1= 172362 
KDPAR2= 172364 
KDPARS= 172366 
KDPAR4= 172370 
KDPARS= 172372 
KDPAR6= 172374 
KDPAR7= 172376 
-ENOC 


.SBTTL TSUOS REGISTER AND PACKET DEFINITIONS 


; 
; SOME GENERAL EQUATES. 
‘ 


SEQ 022 


ERRVEC== 4 s; POINTER TO ERROR VECTOR FOR BUS TIME OUT. 


TSV3_ - GLOBAL AREAS 
TSUOS REGISTER AND PACKET DEF IN 


000060 
177560 
177562 
177520 


MACRO _M 


+13. 01-FEB-84 1 


TTIVEC== 
TTICSR== 
TTIBFR== 
BOVPCR== 


8:55 


60 
177560 


177562 
177520 


Ke 


INTERRUPT VECTOR FOR CONSOLE INPUT 
BUS ADDRESS OF CONSOLE INPUT 
CONSOLE INPUT DATA BUFFER 

BDOV11 PAGE CONTROL REGISTER 


Hind 
;BIT DEFINITIONS FOR TSSR REGISTER 


sc- 
BIE= 
SCE= 
RMR= 
NXM= 
NBA= 
HIADDR= 
SSR= 
OFL= 
FATERR= 


BIT1S 
BIT14 
BIT13 
BIT12 
BITi1 


BIT10 
BIT9!BITS 


BIT7 
BIT6 
BIT4!6I 


TS 


TERCLS= BIT3!BIT2!:BIT1 


3¢ 


sSPECIAL CONDITION 

sBUS INTERFACE ERROR 
sSANITY CHECK ERROR 
sMODIFICATION REFUSED 
sNONEXISTANT MEMORY ERROR 
sNEED BUFFER ADDRESS 
sEXTENDED ADORESS BITS 
3SUB SYSTEM READY 

sOFF LINE BIT 

sFATAL TERMINATION ERROR CODES 
; TERMINATION CODES 


a 
sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER O 


3(xXSTO) 
* 
37 


XSOTMK= 
XSORLS= 
XSOLET= 
XSORLL = 
XSOWLE = 
XSONEF = 
xSOILC= 
XSOILA= 
XSOMOT= 
XSOONL = 
xSOIE= 

XSOVCK= 
XSOPED= 
XSOWLK = 
XSOBOT= 
XSOEOT= 


; TAPE MARK DETECTED 
sRECORD LENGTH SHORT 
sLOGICAL END OF TAPE 
sRECORD LENGTH LONG 
;WRITE LOCK ERROR 
sNON EXECUTABLE FUNCTION 
;ILLEGAL COMMAND 
;ILLEGAL ADORESS 

; TAPE IN MOTION 

3; TRANSPORT ON LINE 

s INTERRUPT ENABLE 
;VOL.UME CHECK BIT 
sPHASE ENCODED DRIVE 
sWRITE LOCKED 
sBEGINNING OF TAPE 
sEND OF TAPE 


3¢ 
sBIT DEFINITIONS FOR EXTENDED STPTI'S REGISTER 1 


3(XST1) 
g§° 
X1.0LT 
X1. SPARE 


* BIT1S 


= BIT14 


BIT1 


:DATA LATE 
;NOT USED 
RECTABLE DATA ERROR 


;READ BUS PARITY ERROR 
sUNCORRECTABLE DATA OR HARD ERROR 


SEQ 023 


BIT13 sCOR' 
BITL2-81711 .81110-B119-B117.B1T6 8115-8114 BITS 8172-8170 sALWAYS O 


e. 
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TSv05S “REGISTER AND PACKET DEFINITIONS 
105 
106 3° 
107 ;BIT DEFINITIONS FOR EXTENDED STATUS REGISYER 2 
‘oP 3(xST2) 
“= 
110 100000 X2.0PM = tBhy sean creo IN PROGRESS (TAPE MOVING) 
111 040000 x2.RCE = BIT14 M CHECKSUM ERROR 
112 035400 X2.SPARE= BiTis-err12-81"11-8179.8178 sNOT USED BY TSUOS CALWAYS=0) 
113 002000 xX2.WCF = BIT10 WRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
114 000200 X2.EXTF = BIT7 VIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
115 000100 x2.BUFE = BIT6 ;IF WRITE CHAR CMD THEN = BUFFERING ENABLED 
116 000077 X2.REV = 000077 3IF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
117 000007 X2.UNIT = BIT2*BIT1+BITO. 3IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 
118 
119 3¢ 
120 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
‘zt 3(XST3) 
5? 
123 177400 X3.MDE == 177400 , sMICRO-DIAGNOSTIC ee CODE 
124 000200 X3.SPARE= BIT7 sNOT USED BY TSUO 
125 000100 X3.0PI = BIT6 ; OPERATION INCOMPLETE 
126 000040 X3.REV = BITS sREVERSE 
127 000020 X3.TRF = BIT4 3; TRANSPORT RESPONSE FAILURE 
128 000010 xX3.0CK = BIT3 ;DENSITY CHECK 
129 000006 X3.MBZ *=BIT2+BIT1 sNOT USED ALWAYS O 
130 000001 j X3.RIB = BITO sREVERSE INTO BOT 
131 
132 3° 
133 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
134 3(XST4) 
135 a 
136 100000 X4.HSP = BIT15 sHIGH SPEED 
137 040000 Xx4.RCE = BIT14 sRETRY COUNT EXCEEDED 
138 020000 xX4.TSM = BIT13 ; TRANSPORT SPECIAL MODE 
139 017400 X4.MBZ = BIT12BIT11-BiT10+BIT9-BIT8 ;NOT USED ALWAYS O 
tat 000377 X4.WRC = 000377 ;WRITE RETRY COUNT FIELD 
142 
143 3° 
144 H 
oe ;TSSR TERMINATION CODES (BIT 0-2) 
3 
147 :- 
148 
149 000006 TSREJ= 342 sCOMMAND REJECTED 
tae 000006 UNREC= 6 s;UNRECOVERABLE ERROR 
152 ze 
153 : 
154 ;sDEVICE REGISTER OFFSETS 
155 : 
156 :- 
157 
158 000000 TSBA== 0O 
159 000000 TSDB== O ;TSD@/TSBA REGISTER 
160 000001 TSBAH== 1 
161 000001 TSOBH== 1 ;1S08.“TSBA REGISTER HIGH BYTE 


TSv3_- GLOBAL AREAS 
TSUOS REGISTER AND PACKET 
162 000002 
163 000003 

164 

165 

166 

167 

168 000003 
169 

170 

171 

172 

173 000017 
174 000013 
175 000012 
176 000011 
177 000010 
178 000006 
179 000005 
180 000004 
181 000001 
182 

183 

184 

185 

186 100000 
187 040000 
188 020000 
189 010000 
190 007400 . 
191 000200 
192 000140 
193 000037 
194 

195 

196 

197 000000 
198 000400 
199 001000 
200 002000 
201 002400 
202 

203 

204 

205 

206 000167 
207 000200 
208 000201 
209 000210 
210 000215 
211 000234 
212 

213 

214 

215 

216 

217 

218 000006 
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TABEPINT ttoNs : oe 
TSSR== 2 sTSSR REGISTER 
TSSRH== 3 sTSSR REGISTER HIGH BYTE 
3¢ 
; TSDB ADDRESS BIT DEFINITIONS 
hog 
A1716 = = BIT1+BITO sADDRESS BITS 17:16 ARE IN 1:0 


3* 
; COMMAND DEFINITIONS 


ed 

P.GETSTAT = 17 sGET STATUS 

P.INIT = 13 s INITIALIZE 

P .CONTROL = le sCONTROL COMMANDS 

P .FORMAT = 11 sFORMAT 

P.POSITION = 10 sPOSITION 

P.WRTSUB = 6 ;SUBSYSTEM WRITE 
P.WRITE = 5 ;WRITE 

P.WRTCHAR = 4 sWRITE CHARACTERISTICS 
P.READ ei sREAD 


3; COMMAND PACKET HEADER WORD BIT DEFINITIONS 


ACK = BIT15 ;BUFFER AVAIL FOR CONTROLLER 

CvC = BIT14 s;CLEAR VOLUME CHECK 

opp = BIT13 oy SEQUENCE OF DATA BITS 
° BYTES IN MEMORY 


BIT12 3 SWAP 

BIT11!BIT10!:61T9!BIT8 EXTENDED COMMAND MODE FIELD 
= BIT? s INTERRUPT ENABLE 

-FMT= BIT6!BITS sPACKET HEADER TYPE (ALWAYS=0) 

CMD = 37 sMAJOR COMMAND FIELD 


VVUVVUVUVUYV 
& 


3+ 
; CONTROL COMMAND MODE CODES 
+ = 


PC ..RELEASE = 04256. sRELEASE BUFFER 

PC ..REWIND = 14256. ;REWINOD 

PC .NOOP = 24256. sNO-OP 

PC. IEREW = 42256. sREWIND IMMEDIATE INTERRUPT 
PC .ERASE = 54256. ;SECURITY ERASE 


3 
; CONTROLLER RAM DEFINITIONS 


RMCHBEG = 167 sCHARACTERISTICS IO DATA BEGIN RAM ADDRESS 
RMCHEND = 200 sCHARACTERISTICS IO DATA END RAM ADDRESS 
RMPKTBEG= 201 sCOMMAND PACKET BEGIN RAM ADDRESS 
RMPKTEND= 210 sCOMMAND PACKET END RAM ADDRESS 

RMMSGBEG= 215 sMESSAGE BUFFER BEGIN RAM ADDRESS 
RMMSGEND= 234 sMESSAGE BUFFER END RAM ADDRESS 


3¢ 


; 

sREGISTER DEFINITIONS IN THE MESSAGE BUFFER 
; 

5g = 


xSTO== 6 sEXTENDED STATUS REGISTER () CWORD 4) 


Ne 
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TSVOS REGISTER AND PACKET DEFINITIONS 
219 000010 xSTi== 8. sEXTENDED STATUS REGISTER 1 CWORD 5) 
220 000012 xST2== 10. sEXTENDED STATUS REGISTER 2 CWORD 6) 
221 000014 xST3== 12. sEXTENDED STATUS REGISTER 3 CWORD 7) 
oot 000016 xST4== 14, sEXTENDED STATUS REGISTER 4 CWORD 8) 
224 
225 3+ 
226 F 
4 ;OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 
22 3 
350 
231 000002 PKLOW = 2 ;LOW ORDER CHARACTERISTIC DATA POINTER 
232 000004 PKHI = 4 sHIGH ORDER CHARACTERISTIC DATA POINTER 
+4 000006 PKBCNT = 6 sNUMBER OF BYTES IN DATA PACKET 
2 
es 000010 EXBCNT=10 sNUMBER OF BYTES IN EXTENDED DATA PACKET 
2 
237 3¢ 
iH ;DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 
ee 
240 000000 BSELO = 0 ;BYTE O 
241 000001 BSEL1 “7 ;sBYTE 1 
242 000002 SEL2 =2 sWORD 2 
243 000004 SELDATA = 4 :;WORD 3 
244 
245 3+ 
eet ;BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 
3 
248 000000 Pw. = 0 ;NO-OP 
249 000001 PW.RDRAM = 1 sREAD RAM 
250 000002 PwW.WTRAM = 2 ;WRITE RAM 
251 000003 PwW.RFIFO = 3 ;READ FIFO 
252 000004 PW.WFIF = 4 ;WRITE FIFO 
253 000005 PwW.RDSTAT se § sREAD STATUS 
254 000006 Pw TL = 6 ;WRITE TAPE CONTROL 
255 000007 PW.WFMT = 7 ;WRITE TAPE FORMAT 
256 000010 PW .WMISC = 10 ;WRITE MISCELLANEOUS 
257 000011 Pw = 11 ;WRITE NPR CONTROL 
258 000020 Pw.D22 = 20 300 MICROTEST 22 
259 000021 Pw.D1i1 = 21 3:00 MICROTEST 11 
260 000022 Pw.013 = 22 300 MICROTEST 13 
261 000023 PW.NO1311 = 23 ;DISABLE MICROTEST 11 AND 13 
oa 000024 PW.RDEXT = 24 sREAD EXT. TAPE STATUS CNOT SUPPORTED BY ALL TRANSPORTS 
264 6 
;BSEL1 CODES FOR WRITE TAPE CONTROL 
267 000200 WC.IFAD = BIT7 ;IFAD - FORMATTER ADDRESS 
268 000100 WC.IOTAD = BIT6 ;ITADO - TRANSPORT ADDRESS BIT O 
269 000040 WC.I1LTAD = BITS ;ITAD1 - TRANSPORT ADDRESS BIT 1 
270 900020 WC. ISRESV = BIT4 sIRESVS - RESERVED #5 
271 000010 wc. IREW = BIT3 ; IREW - REWIND 
272 000004 WC. IRWU = BIT2 ; IRWU - REWIND AND UNLOAD 
273 000002 WC.IFEN = BIT1L ; IFEN - FORMATTER ENABLE 
274 000001 wC.IGO = BITO ;GO 


GLOBAL AREAS 
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%° 
3 WRITE SUBSYSTEM 


w 

ee 

y 

m 

w 

< 
*esespspesepespeeseepeeeeeeeaeees 


: 


MSA.FRAM= 


B3 


BIT? 
BIT6 
BITS 
BIT4 


sIMHISP - HIGH SPEED 
sIWRT - WRITE 

sIREV - REVERSE 

sIWFM =6©- WRITE FILE MARK 
sIEOIT - EDIT 

sIERASE - ERASE 

sIRESVS - RESERVED 03 
sIRESV4 - RESERVED 04 


MISCELLANEOUS SUBCOMMAND 


SEQ 027 


sINVERT SENSE OF EXTENDED FEATURES SWITCH 


sRESET FIFO AND INPUT PARITY ERRORR 
sRESET TAPE STATUS IN 2 FLIP-FLOPS 


VATTENTION TRIGGER FIELD 
sRESET TIMER A,B THEN DELAY TIMES IN SEL2 


sNO-OP CNOTHING 


sSIMULATE ON-LINE/OFF-LINE TRANSISTION 


TRIGGERED ) 


sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 
sFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 


WRITE NPR BSEL1 BIT DEFINITIONS 


s INTERRUPT REQUEST (0-1 
sTAPE DATA OIRECTION OUT (O= IN) 


sENABLE TRANSPORT LOOPBACK 
sWRITE CORRECT PARITY (SET*O0 TO WRITE WRONG) 


‘° 
s READ STATUS MESSAGE BUFFER BIT DEFINITIONS 


sWORD 09 BYTE 2 


( UNDEF INED ) 
WORD 08 BYTE 1 


WORD 08 BYTE O 


ry IN MISS 


TIMER A FLAG 
TIMER B FLAG 


PARIN 
IRESV2 
IRESV1 
IEOT & 
IIOENT 
ICER 
IFMK fh 
IMER H 
ISPEED 
IROY & 
IONL L 


TRANSITION) 


C3 
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ILOP L 
IOBY L 
IRWO L 
IFBY L 
IFPT L 


ow 

wn 

wi 

w 

°o 

~ 

EEF 
seeese 

@ 

~ 

~ 

%~— 
-~— =o o oe 


33? 000001 50. IFPT 


+4 SUNIBUS MAP DEF INATIONS 
3- 
341 170200 MMRO = 170200 


344 .SBTTL SPECIAL MACROS AND OPDEFS. 


3¢ 
348 ;SAVE GENERAL REGS 1 TO 5 
349 : 


351 «MACRO SAVREG 
352 JSR RS ,REGSAV 
353 -ENOM 


a¢ 
356 é' MACRO TO FORCE AN ERROR 
358 “MACRO FORCERROR TAG,,NOTSSR 
360 “Pier NOF LISTALL, .NLIST 


362 -IF B NOTSSR 
363 MOV TSSRCRS),R1 sREAD TSSR 
364 -ENOC 


365 MOV FORCER,FORCER ;IS FORCER SET? (LEAVE C BIT ALONE) 
366 BNE TAG s8R IF YE 


-NLIST 
568 rs ed LISTALL, .LIST 


370 -ENOM 


se 
s MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
: WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
375 : SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 
: FORCER TO 177777 
: TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 


379 ‘MACRO FORCEXIT TAG 
"MLIST 
381 TIE MOF LISTALL, .MLIST 


383 MOV FORCER,FORCER 1S FORCER NEGATIVE? 
384 BMI TAG sBR IF YES 

385 -NLIST 

386 .LIF NOF LISTALL, .LIST 

387 LIST 

388 .ENOM 

389 - 


002170 


000000 


D3 
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. MACRO TO INCREMENT ERROR COUNTS 


“MACRO NEXT .ERRNO 
»-NLIST 


I 
sas.IIF NOF LISTALL, .NLIST 
ERRNO=ERRNO+1 
og al NOF LISTALL, .LIST 


> 
;MACRO TO PERFORM XOR 
3 - 


«MACRO XOR A.B 
MOV 


A,-(SP) 
BIC B.CSP) 
BIC A.B 
BIS (SP)+,8 
.ENOM 


EN*0 s INITIALIZE ERROR NUMBER 
-SBTTL FORCER - FORCE ERROR FLAG 


THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 


- BY THE MACRO "IFERROR"). AN ERROR NEED NOT 


FORCER: : 0 s FORCE TYPE ALL HARD ERRORS (THE ONES CALLED : 
3 
s - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 


-SBTTL GLOBAL DATA SECTION 


zee 
:THE GLOBAL DATA a CONTAINS DATA THAT ARE USED 
3IN MORE THAN ONE TES 

gee 


3 
sTHE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
sSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 


3 
EPRTSW: : -WORD 0 sPRINT SWITCH 

UNITN: : -WORD O sUNIT @ UNDER TEST. 

QvP:: -WORD O sQUICK VERIFY FLAG. 

CSRADOR: : -WORD O sADDRESS OF CSR FOR CURRENT DEVICE 
IVEC:: «WORD 224 sINTERRUPT VECTOR 

IPRI:: -WORD PRIO4 sINTERRUPT PRIORITY. 

TSTCNT:: -WORD O sNUMBER OF TESTS RUN IN THIS PASS 
LOOPCNT; : -WORD O sREMAINING ITERATION COUNT FOR TEST 
DEVCNT:: «WORD O sNUMBER OF DEVICE UNDER TEST 
FATFLG:: «WORD O sSET IF FATAL ERROR IS DETECTED IN TEST 
INTRECV:: -WORD O sSET IF TAPE INTERRUPT WAS RECEIVED 


SES 029 


TSV3 - GLOBAL AREAS 
GLOBAL DATA SECTION 


177775 


MACRO M1113 O1-FEB-84 18:55 


EXTFEA:;: 


RCVLOADD: : 
COUNT: : 
DATA:: 
TSTFLAG:: 
TSTPTR:: 
EXPMSG: : 
RECMSG:: 
TMPBFR:: 


3. 


SEQ 030 
-WORD O sEXTENDED FEATURES SOFTWARE SW O-O0FF;1-0N 
«WORD O sBUFFER ENABLE SWITCH SW O=OFF;1=0N 
-WORD O sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
-WORDB O sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 
-WORD O sHIGH ADDRESS MEMORY ERROR 
«WORD O sLOW ADDRESS MEMORY ERROR 
-BLKW 16. sOATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
«WORD O sRAM DATA SIZE FOR PRAMPKT ROUTINE 
«WORD O sRECEIVED BUFFER HIGH ADDRESS 
-WORD O sRECEIVEOD BUFFER LOW ADDRESS 
-WORD O sTEST COUNT PATTERN 
-WORD O sTEST DATA 
«WORD O sTEST FLAG WORD 
-WORD O sTSTBLK POINTER 
-WORD 0 sPRINT ROUTINE TEMP 
-BLKB 100, sEXPECTED MESSAGE BUFFER DATA 
-BLKB 100. sRECEIVED MESSAGE BUFFER DATA 
-BLKB = =80. s TEMPORARY STORAGE FOR PRINT 


-SBTTL TSTBLK - TEST DATA TABLE 


6 

sTHIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
é 

sIN SEQUENCE THE DATA IS: 


TSTBLK: : 


ALL ZEROS 

ALL ONES 

WALKING ONES 

WALKING ZEROS 

ALTERNATING ONES AND ZEROS 


te) sALL ZEROS 
177777 sALL ONES 
BITO sDATA FOR WALKING ONES 


*CBITO sDATA FOR WALKING ZEROS 
*CBIT1 


TSV3 - GLOBAL AREAS 


TSTBLK 


- TEST 


DATA TABLE 


177773 
177767 
177757 
177737 
177677 
177577 
177377 
176777 
175777 
173777 
167777 
157777 
137777 
077777 
125252 
0S2525 
003054' 


000000 100000 000000 
000000 000000 000000 
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TBLEND==. 


- SBTTL 


tCBIT2 
+CBITS 
tCBIT4 
tCBITS 
tCBIT6 
tCBIT7 
tCBITS 
tCBIT9 
tCBIT10 
*CBIT11 
tCBIT12 
tCBIT13 
tCBIT14 
tCBIT15 
125252 
052525 


F3 


SEQ 031 


sALTERNATING ONES, ZEROS 
sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


GLOBAL ENVIRONMENT STORAGE 
2 

sSTORAGE FOR DEVICE REGISTERS 

i 

DUMMY: ©,100000,0,0 


0,0,0,0,0,0,0,0 

DUFLG . WORD 
NODEV: . WORD 
TEMP1:: » WORD 
TEMP2:: » WORD 
XXCOMM: : . WORD 
FREE: ~ WORD 
FRESIZ:: . WORD 
FREEHI: .WORD 0O 
KTFLG:: .» WORD 
KTENABLE: : . WORD 
NXMFLG: : » WORD 
NXMLO . WORD 
NXMHI: . WORD 
T23A:: . WORD 
T23B:: . WORD 
T3BFLG:: . WORD 
PST32W:: . WORD 
SIFLAG » WORD 
BADDAT: : .» WORD 
GDDAT » WORD 
LOOPFL: .» WORD 
CTAB:: 

CTABM:: . WORD 


sDUMMY DEVICE REGISTERS... 
s...FOR MULTI-UNIT CHECKOUT. 


s"DROPPED UNIT” FLAG. 
sINHIBITS CODE IN “CLEAN-UP”. 
sFLAG TO SAY NO DEVICE. 


sSOME TEMP LOCATIONS. 


:XxDP+ COMM BLOCK POINTER. 
“sang FREE MEMORY ADDRESS... 
-ANO SIZE CIN WORDS). 
;LAST WORD IN FREE SPACE 
sKT11, MEM AVAIL FLAG - 
3- .WORD O = <24K OR NO KT - 
3- NZ = >24K AND KT. 
sSET BY TEST ROUTINES TO FLAG >28K UNDER TEST 
sSET IF WE CAN TEST CLEARED OTHERWISE 
sNXM LO ADORESS BITS 
sNXM HI ADDRESS errs FOR DAL’‘S 16-21 
sPROCESSOR TYPE FLAG 
sPROCESSOR TYPE FLAG B 
;TEST 38 FLAG tO 
:32W BLOCK ADDRESS FOR 32k START 


6 
sACTUAL DATA 
sEXPECTED DATA 


ae TABLES. 
sCONFIG WORK 


o e0o000o oO SO 


ooo eee eet oes 


TSV3_- GLOBAL 
GLOBAL ENVIRONMENT STORAGE 


003164 
003166 


003170 ~ 


003170 
003370 


003372 


003374 
003374 
003374 


003402 
003402 
003402 


AREAS 


177777 


124 


oS2 


003532’ 
003573’ 


GS 
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123 


os2 


003535’ 
003577' 
103 


125 


0S2 


003541' 
003603' 
000 


«WORD O 
. WORD -1 sEND OF MEM TABLE. 
CTABE:: 


sERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX; 
3 


: ] * UNIT NOT TESTED 

* 100000 = UNIT ONLINE, NO ERRORS 

; 1LOXXXX == UNIT ONLINE, ENCOUNTERED XXxx ERRORS 

; 160000 = UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 

; 160001 = UNIT DROPPED, NOT IDOLE AT START 

; 14XXXxX = UNIT DROPPED, ENCOUNTERED XXxxX ERRORS 

3 

ERTABL : -BLKW 64, 

ERTABE : -WORD O 

SKIPT: .WORD 0 s1*SKIP SUBTEST O=NO SKIP OF SUBTEST 


-SBTTL GLOBAL TEXT MESSAGES 


see 

; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
s MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

; MORE THAN ONE TEST. 

di 


3¢ 
sNAMES OF DEVICES SUPPORTED 
3j- 


DEVTYP <TSUOS> 
LSDOVTYP:: 
-ASCIZ /TSUOS/ 
EVEN 
3° 
;TEST DESCRIPTION 
ge 
DESCRIPT <e#aee TSUOS DIAG PART 4 - CHECK TRANSPORT IF ERROR eeee> 


LSDESC: . 
— /eeee TSUOS DIAG PART 4 - CHECK TRANSPORT IF ERROR eeee/ 
. V' 


s¢ 
sBIT TO ASCII CONVERSION FOR TSSR REGISTER 
g- 


TSSRBIT:: -WORD 1$,2$,3%,4%,5$,6$,7$,8$ 
-WORD 9$,10$,11$,12$,13$,148,15$,16$ 
1%; ~ASCIZ ‘SC 
2s: -ASCIZ ‘BIE’ 
3%: -ASCIZ ‘SCE’ 
4%: -ASCIZ ‘RMR’ 
S$: -ASCIZ ‘NXM’ 


6%: -ASCIZ ‘NBA’ 


H3 
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GLOBAL TEXT MESSAGES 
633 003561 102 111 124 78: -ASCIZ ‘BITS’ 
634 003 102 111 124 8$ ASCIZ ‘BITS’ 
635 003573 123 123 122 9%: ASCIZ ‘SSR’ 
636 003577 117 106 114 108: -ASCIZ ‘OFL' 
637 003603 102 111 124 11% ASCIZ ‘BITS’ 
638 003610 102 111 124 12% ASCIZ ‘BIT4' 
639 003615 102 111 124 13% ASCIZ ‘BIT3’ 
640 003622 102 111 124 148: ASCIZ ‘BIT2’ 
641 003627 102 111 124 «158: -ASCIZ ‘BIT1' 
aan 003634 102 111 124 168: a ‘BITO’ 
644 003642 124 123 123 SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 
64S 003675 124 123 123 SFHERR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 
646 003730 040 040 116 NXR: -ASCIZ / NON-EXISTANT DEVICE REGISTER/ 
647 003767 045 101 040 NXRX: -ASCIZ /#A ADDRESS: #06/ 
648 004010 045 101 040 TSSX: -ASCII /#A TSBA,TSSR EXP'D: s068A,8068N/ 
649 004050 045 101 040 -ASCIZ /#A TSBA, TSSR REC'D: s06sA,806/ 
650 004107 045 116 045 FUSI: -ASCII /sNSA/ 
651 004113 040 040 125 USI: -ASCIZ / UNEXPECTED INTERRUPT/ 
652 004142 040 040 111 NSI: -ASCIZ / INTERRUPT EXPECTED, NOT RECEIVED/ 
653 004205 045 116 045 FNOINTR: -ASCII /sNSA/ 
654 004211 040 040 116 NOINTR: .ASCIZ / NO INTERRUPT +“ GENERATED/ 
655 004246 040 040 111 IFAUT: .ASCIZ / INTERRUPT FAULT/ 
656 004270 045 101 040 _ =INTX: -ASCIZ /#A CPU PC: 068A TSBA: 


#06/ 
657 004325 040 040 042 NOINIT: .ASCIZ / “BUS-INIT” DION'T INITIALIZE CONTROLLER/ 
658 004377 040 040 042 NSINIT: .ASCIZ / “SOFT-INIT” DION‘ T INITIALIZE THE DPU/ 
659 004447 040 040 042 BRINIT: .ASCIZ / “BUS-RESET” DION’ T INITIALIZE THE DPU/ 


660 
661 004517 000 NUL: ASCIZ // 
662 004520 045 116 000 NULCR: .ASCIZ /sN/ . 
663 904523 045 101 040 EXPGOT: .ASCIZ /#A EXP’D: sO068A, REC'D: #06/ 
664 004557 045 116 045 EXPGT2: .ASCIZ /sNSA EXP’D: SO06SA, SO6SNSA REC'D: SOSA, 06/ 
665 004633 045 101 040 OUADI2: .ASCIZ /#A REG(W) WRITTEN TO: S068A REGCR) READ; EXP’D: 068A, REC'D: #06/ 
666 004735 122 101 115 PKTRAM:: -ASCIZ ‘RAM Contents Do Not Match Packet Sent’ 
667 005003 040 040 103 SCME: .ASCIZ / CONFIG DOESN'T MATCH MFG. MASTER/ 
668 005046 127 122 111 WRTMSG: .ASCIZ ‘WRITE CHARACTERISTICS Failed’ 
669 005103 124 123 123 WRTERR: .ASCIZ ‘TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 
670 005176 124 123 123 ROERR: .ASCIZ ‘TSSR Incorrect After READ Command, More Bits Set Than SSR’ 
671 005270 106 101 124 SCHERR: .ASCIZ ‘FATAL ERROR IN SUBTEST - CHECK TAPE,CABLES, TRANSPORT etc.’ 
672 005362 105 122 122 RETERR: .ASCIZ ‘ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED’ 
675 005450 045 116 045 NOMEM: -ASCIZ 'ssNSA @e00¢6 NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT. seeeesn: 
.=VEN 
675 
on .SBTTL GLOBAL ERROR REPORT SECTION 
678 ee 
679 ; THE GLOBAL ERROR REPORI SECTION CONTAINS THE PRINTB AND PRINTX 
680 ; CALLS THAT ARE USED IN MORE THAN ONE TEST 
re! ; ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 
g°° 

683 
684 005544 BGNMSG NXRERR sNON-EXISTANT DEVICE REGISTER. 

005544 NXRERR: : 
685 005544 PRINTX @NXRX,NODEV sNODEV = NEXM ADDRESS. 

005544 013746 003106’ MOV NODEV, -( SP) 

005550 012746 003767' MOV O@NXRX, -(SP) 


005554 012746 000002 MOV @2,-CSP) 


I3 
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GLOBAL ERROR REPORT SECTION 


000006 
686 005570 004737 005576’ 


697 005604 004777 177770 


005610 012746 004520’ 
005614 012746 000001 


005624 062706 000004 


723 005662 010400 

724 005664 004737 015734’ 
725 005670 103410 

726 005672 


MOV SP ,RO 

TRAP CSPNTX 

ADD 06,SP 

JSR PC,EXTEND s PRINT EXTENSION IF REQUIRED. 
ENOMSG 


L10002: 
TRAP C$MSG 


; THIS ROUTINE APPENDS A UNIQUE EXTENSION CIF REQUIRED) 
; TO ANY OF THE ABOVE ERROR SIGNATURES. 


; 

EXTENO: TST (PC )+ 

EXTA: 0 ; O = NO EXTENSION. 
BEQ i$ 


JSR PC ,@EXTA s APPEND EXTENSION TEXT. 


1$; PRINTX @NULCR s PRINT A BLANK LINE 
MOV @NULCR, -C SP) 
MOV @1,-(SP) 
MOV SP,RO 
TRAP CSPNTX 
ADD @4,SP 
RTS PC 


-SBTTL PRITSSR - PRINT TSSR CONTENTS 
3¢ 
i 
sROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 


sTHE TSSR REGISTER. THIS ROUTINE. IS NORMALLY CALLED ONLY 
;BY A MESSAGE PRINTING ROUTINE 


3 

s INPUTS: 

3 

3 R1 CONTENTS OF TSSR 

3 

;SUBORDINATE ROUTINES: 

3 

8 CHKAMB CHECK FOR AMBIGUOUS CONTENTS 

3 

3 = 

PRITSSR: 
SAVREG :SAVE GENERAL REGISTERS 
MOV R1,R4 sSAVE THE TSSR CONTENTS 
PRINTB @TSSRFOR,R4 sPRINT THE CONTENTS OF TSSR 
MOV R4,-CSP) 
MOV @TSSRFOR, -( SP) 
MOV 2, -CSP) 
MOV SP ,RO 
TRAP CSPNTB 
ADD 06,SP 
MOV R4,RO ;GET TSSR BACK FOR CHKAMB 
JSR PC, CHIKAMB sARE CONTENTS AMBIGUOUS ? 
BCS sBRANCH IF NOT 


S$ 
PRINTX @AMBTSSR 


sSHOW CONTENTS ARE AMBIGUOUS 


SEQ 034 


J3 
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PRITSSR - PRINT TSSR CONTENTS 
005672 012746 006525‘ MOV @AMBTSSR, -C SP) 
005676 012746 000001 MOV #1, -(SP) 
005702 010600 - SP ,RO 
005704 104415 TRAP CSPNTX 
005706 062706 000004 ADD @4,SP 
727 005712 010403 S$: MOV R4,R3 sCONTENTS OF TSSR 
728 005714 042703 001476 BIC @HIADOR!FATERR! TERCLS,R3 sCLEAR ALL MULTIPLE BIT FIELDS 
729 005720 001434 BEQ 20% sNO BITS ARE SET 
730 005722 012702 002624’ MOV OTMPBFR ,R2 s TEMPORARY ASCII BUFFER 
731 005726 012701 003472’ MOV @TSSRBIT,R1 sASCII EQUIVALENT OF BITS 
732 005732 005703 10$: TST R3 sREMAINING BITS TO CONVERT 
733 005734 001413 BEQ 15$ sBRANCH WHEN ALL ARE DONE 
734 005736 000241 cLC sCLEAR CARRY FOR SHIFT 
735 005740 006103 ROL R3 sSHIFT NEXT BIT TO CARRY 
736 005742 103006 BCC 13% sBRANCH IF BIT NOT SET 
737 005744 011100 MOV CR1),RO sPOINTER TO BIT DEFINITION 
738 005746 112022 11$; MOVB CRO)+,CR2)+ sMOVE ASCIZ TO BUFFER 
739 005750 001376 BNE 11$ sMOVE ALL BITS 
740 005752 112762 000054 177777 MOVB @',,-10R2) sINSERT A COMMA TO TERMINATE 
741 005760 005721 13%: TST (R1)> sPOINT TO NEXT DESCRIPTION 
742 005762 000763 BR 10$ sGET THE REMAINING BITS 
743 005764 105042 15$: CLRB -(R2) sTERMINATE THE LINE 
744 005766 PRINTX @TSSDEF,@TMPBFR ;PRINT THE BIT DEFINITIONS 
005766 012746 002624‘ MOV @TMPBFR, -(SP) ™ 
005772 012746 006476' MOV @TSSDEF , -( SP) 
005776 012746 000002 MOV 2, -(SP) 
006002 010600 MOV SP ,RO 
006004 104415 TRAP CSPNTX 
125 006006 062706 000006 ADD #6 ,SP 
746 006012 010403 20%: MOV R4,R3 sGET THE TSSR CONTENTS 
747 006014 042703 177761 BIC @tCTERCLS,R3 s;CLEAR ALL BUT TERMINATION 
748 006020 016303 006566’ MOV TCOCOO(R3).R3 ;GET THE TERMINATION CODE MEANING 
749 006024 PRINTX #@TCOASC,RS sPRINT THE TERMINATION CODE 
006024 010346 MOV R3, -CSP) 
006026 012746 006366’ MOV @TCOASC, -( SP) 
006032 012746 000002 MOV @2,-C(SP) 
006036 01 MOV SPR 
006040 104415 TRAP CSPNTX 
006042 062706 000006 ADD 6 ,SP 
750 006046 010403 MOV R4,R3 sTSSR CONTENTS AGAIN 
751 006050 042703 177717 BIC @rCFATERR,RS ;CLEAR ALL BUT FATAL TERMINATION 
752 006054 001416 BEQ 25% 3;DON‘'T PRINT IF ZERO 
753 006056 006203 ASR R3 
754 006060 006203 ASR RS 
755 006062 006203 ASR R3 sALINE TERMINATION CODE FOR INDEX 
756 006064 016303 007126' MOV TSFCOOCR3),R3 ;GET THE FATAL TERMINATION CODE 
757 006070 PRINTX @TFCASC,RS sPRINT THE FATAL TERMINATION CODE 
006070 010346 MOV R3,-( SP) 
006072 012746 006427’ MOV @TFCASC, -CSP) 
006076 012746 000002 MOV #2, -(SP) 
006102 019600 MOV SP ,RO 
006104 104415 TRAP CSPNTX 
006106 062706 000006 ADD 6, SP 
758 006112 042704 176377 253%: BIC @tCHIADOR ,R4 s;CLEAR ALL BUT EY TENDED ADDRESS 
759 006116 001411 E 30$ sDON'T PRINT IF ZERO 


BEQ 
760 006120 PRINTX @#TEXASC,R4 sPRINT THE EXTENDED ADDRESS BITS 
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PRITSSR - PRINT 


761 
762 


007247 


TSSR CONTENTS 


012746 006325’ 
012746 000002 


010600 

104415 

062706 000006 

013703 002172’ 

010346 

012746 000001 

010600 

104415 

062706 000004 

000207 
045 116 045 
045 116 045 
045 116 045 
045 116 045 
045 116 045 
045 116 045 
045 116 045 
045 116 045 

006606‘ 006631' 006657’ 
116 157 162 
124 145 162 
124 141 160 
106 165 156 
122 145 143 
122 145 143 
125 156 162 
106 141 164 

007136’ 007172' 007203’ 
111 156 164 
122 145 163 
102 165 163 
122 145 163 


K3 


-FEB-84 18:55 SEQ 036 
MOV -(SP) 
MOV OTEXASC, -(SP) 
MOV @2,-CSP) 
MOV P,RO 
TRAP CSPNTX 
ADD #6, SP 
308: MOV EPRTSW,R3S sPRINT MEAASGE BUFFER ADDRESS 
PRINTX R3 sPRINT PROPER MESSAGE 


MOV R3,-CSP) 
MOV #1,-(SP) 
SP ,RO 


MOV 

TRAP C$PNTX 

ADD 04 ,SP 

RTS PC sRETURN TO CALLER 


EPRT1: .ASCIZ ‘sSNSA saeeaCHECK TRANSPORTseesae’ 
EPRT2: .ASCIZ ‘ssNSA seaeeCHECk PARITY SWITCH IN TRANSPORTs«sea' 
TSSRFOR: -ASCIZ ‘sNSA TSSR = #806’ 
‘SNBA Extended Address Bits = #06’ 
‘SNSA Termination Class Code = sT’ 
TFCASC: -ASCIZ ‘sNSA Fatal Termination Class Code = sT' 
‘SgNSA TSSR Bits Set: sT' 


AMBTSSR: oven ASCIZ ‘sNSA TSSR Contents Are Ambiguous’ 
Vv 
TCOCOD: .WORD 1$,2%,3%$,4$,5%$,6$.,7$,8$ 
18; -ASCIZ ‘Normal Termination’ 
2s: -ASCIZ ‘Termination Condition’ 
3$: -ASCIZ ‘Tape Status Alert’ 
4s: -ASCIZ ‘Function Reject’ 
5$: -ASCIZ ‘Recoverable Error - Tape Position One Record Down’ 
6$: -ASCIZ ‘Qecoverable Error - Tape Was Not Moved’ 
7$: -ASCIZ ‘Unrecoverable Error’ 
8$: -PSCIZ ‘Fatal Controller Error’ 
E JEN 
TSFCOD: .WORD 1$,2$,3%,4$% 
1$: -ASCIZ ‘Internal Diagnostic Failure’ 
2s: -ASCIZ ‘hkeserved' 
3$:; -ASCIZ ‘Bus Interface or Sanity Check Error’ 
4$: — 'Reservec' 
Vv 


-SBTTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 
3¢ 
sTHIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
;THIS ROUTINE IS NORMALLY OMLY CALLED FROM A PRINT ROUTINE. 
3 
3; INPUT: 

RO NUMBER OF WORDS IN PACKET 

R3 HIGH ORDER COMMAND PACKET ADDRESS 
ADDRESS OF COMMAND PACKET 


NOTE: R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 


D 


ee 


Isvs - GLOBAL AREAS MACRO M1113 01-FEB-84 18; 33 SEQ 037 
PRIPKT - PRINT THE ADDRESS/CONTENTS COMMAND PACKET 
822 007260 . PRIPKT:: 
823 007260 SAVREG s;SAVE THE REGISTERS 
824 007264 010005 MOV RO,RS sSAVE NO. OF WORDS IN PACKET 
825 007266 005737 003126’ TST K TENABLE sABOVE 28K UNDER TEST? 
826 007272 001001 BNE 10$ ;8R IF YES 
827 007274 005003 CLR R3 3;SET HIGH ORDER ADDRESS TO 0 
828 007276 010301 10$: MOV R3,R1 s;COPY HIGH ORDER ADDRESS 
829 007300 010400 MOV R4,RO ;GET LOWER ADDRESS 
830 007302 006100 ROL RO ;SHIFT BIT 15 INTO C BIT 
831 007304 006101 ROL RL ;AND INTO HIGH ORDER 
832 007306 PRINTB PKTADD,R1,R4  ;PRINT PACKET ADDRESS 
007306 010446 MOV 4,-(SP) 
007310 010146 MOV R1,-(SP) 
007312 012746 007444’ MOV @PKTADD, -( SP) 
007316 012746 000003 MOV @3,-(SP) 
007322 010600 SPR 
007324 104414 TRAP CS$PNTB 
007326 062706 000010 ADD #10,SP 
833 007332 010300 153: MOV R3,RO :;GET HIGH ORDER ADDRESS 
834 007334 001404 BEQ 20$ :;BR IF NOT ABOVE 28K. 
835 007336 010401 MOV R4,R1 3;GET LOW ORDER ADDRESS 
836 007340 004737 017210' JSR PC, SETMAP 3;SETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
837 007344 010004 MOV RO,R4 ;GET RETURNED PAR6 ADDRESS BIAS 
838 007346 005001 20%: CLR Ri ;SAVE WORD NUMBER 
839 007350 012402 253%: MOV (R4)+,R2 ;GET PACKET CONTENTS 
840 007352 PRINTS @PKTFRM,R1,R2 ;PRINT THE DATA 
007352 010246 MOV R2,-(SP) 
007354 010146 MOV Ri, -(SP) 
007356 012746 007406' MOV @PKTFRM, -(SP) 
007362 012746 000003 MOV 03, -(SP) 
007366 010600 MOV SP ,RO 
007370 104414 TRAP CSPNTB 
007372 062706 000010 ADD #10,SP 
841 007376 005201 INC R1 s;NEXT WORD NUMBER 
842 007400 020105 CMP R1,R5 s;DONE ALL PACKET WORDS? 
843 007402 002762 BLT 253 ;LOOP TILL ALL UUNE 
— 007404 000207 RTS PC ;RETURN 
846 007406 045 116 045 PKTFRM: .ASCIZ ‘sNSA Packet Word OSD1SA = 806’ 
847 007444 045 116 045 PKTADD: .ASCIZ ‘NSA Packet Address = #01805’ 
848 . .EVEN 
849 
850 
aH .SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 
853 ar 
854 ; 
855 ;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
o36 ;THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
rf 
858 ; INPUTS: 
859 ; 
860 ; R1 RECEIVED DATA 
ost ; R2 EXPECTED DATA 


a 
863 ; OUTPUT: 
‘ 


PRYBXOR = PRINT 


XBb, RE 


010203 


010346 
010146 
010246 
012746 
012746 
010600 


MACRO M 
CV AND 


177400 


116 


007702' 
000004 


LbAS ey 9}- -FEB-84 18:55 


045 


3 RO 
3 


PRIBXOR: : 


. SBTTL 


3¢ 


M3 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 


R2,R3 sEXPECTED DATA 

R1,R3 sFORM THE EXCLUSIVE OR 
@tC<377>,RO0 sBYTE MASK 

RO,R1 sSAVE LOW BYTE RECV 
RO,R2 sSAVE LOW BYTE EXPD 
RO,R3 ;SAVE LOW BYTE XOR 


®XORBFOR, R2,R1, R3 ;PRINT THE MESSAGE 
R3,-CSP) 

Rl, -(SP) 

R2,-CSP) 

@XORBFOR, -( SP) 

04, -(SP) 

SP ,RO 

CSPNTB 

#12,SP 

R3,RO ;RO HAS XOR ON RETURN 
PC ;RETURN TO CALLER 


-ASCIZ ‘ssNSA EXPD: SO3SA RECV: SO38A XOR: 


PRIXOR - PRINT EXPD, RECV AND XOR 


Q 
s;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


zy 
; INPUTS: 


; R1 
; R2 


3 RO 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 
R2,R3 sEXPECTED DATA 
R1,R3 ;FORM THE EXCLUSIVE OR 
@XORFOR, R2,R1,R3 ;PRINT THE MESSAGE 
R3,-(SP) 
R1,-(SP) 
R2,-CSP) 
04,-(SP) 
SP ,RO 


#03' 


SEQ 038 


TSV3_- GLOBAL 


007670 
007672 
908 007676 
909 007700 


910 
911 007702 
912 


928 007750 
929 007750 
930 007754 


AREAS 
PRIXOR - PRINT 


MACRO M 


EXPD, RECV AND 


000207 


000012 


116 


045 


045 


N3 


1113 O1-FEB-84 18:55 
xOR 


TRAP CSPNTB 


ADD #12,SP 
MOV R3,RO sRO HAS XOR ON RETURN 
RTS PC sRETURN TO CALLER 

XORF OR: yt ‘SNA EXPD: SO68A RECV: SO68A XOR: #06’ 
-EV 


-SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 
3+ 


; 
sROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


‘ 
; INPUTS: 


3 RO OCTAL VALUE TO CONVERT 

3 R1 TABLE OF POINTERS TO ASCII EQUIVALENT 

3 

- 

PRIEQU: 
SAVREG ;SAVE THE REGISTERS 
RTS PC ;RETURN TO CALLER 


-SBTTL PRIRAM - PRINT RAM ADDRESS 


3¢ 


é 
sPRINT CONTROLLER RAM ADDRESS. 
;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


3 
; INPUTS: 


; R4 RAM ADDRESS 
; 
ge 
PRIRAM: 
SAVREG - ;SAVE R1-RS UNTIL NEXT RETURN 
PRINTB @#RAMFOR,R4 sPRINT RAM ADDRESS IN ERROR 
MOV R4, -(SP) 
MOV @RAMF OR, -C SP) 
MOV #2, -CSP) 
MOV SP ,RO 
TRAP CSPNTB 
ADD #6, SP 
RTS PC ;RETURN 
RAMF OR: — ‘sNSA CONTROLLER RAM ADDRESS = #06’ 
EVEN 


-SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 


SEQ 039 


010106 
010110 
010112 
010116 


010120 


010216 


013702 
013701 


010146 
012746 


MACRO Mii 
ERROR ADDRESS 


002230' 
002232' 
010120° 
000003 
000010 


116 


002230' 
002252’ 


010246' 
000002 


000006 


32 O1-FEB-84 16:55 


045 


B4 


JPRINT MEMORY ADDRESS 
;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


sivereen 


PRIAO: .ASCIZ 


. SBTTL 
ae 


8 
sPRINT MEMORY 


IMPLICIT INPUTS 


- MIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


sSAVE R1-RS UNTIL NEXT RETURN 


ERRHI,RO sGET HIGH ADORESSS 
ERRLO,R1 sGET LOW ADDRESS 
R1,R2 sCOPY LOW ADORESS 
R1 sSHIFT BIT 15 TO C BIT 
RO sSHIFT INTO HIGH ORDER 
OPRIAO,RO,R2 sPRINT MEMORY ADDRESS IN ERROR 
R2, -( SP) 
RO, -(SP) 

IAO, -(SP) 
@3, -( ) 

eRO 
CSPNTB 
#10,SP 


sRETURN 
‘aNSA MEMORY ERROR ADORESS = #01805' 


PRITADD - PRINT MEMORY TEST ADDRESS 


ADORE SS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
é 
s IMPLICIT INPUTS 


- MIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


sSAVE R1-RS UNTIL NEXT RETURN 


ERRHI ,R2 sGET HIGH ADORESSS 

ERRLO,R1 sGET LOW ADORESS 

R1,R2 sCOPY LOW ADORESS 

R1 sSHIFT BIT 15 TO C BIT 

RO sSHIFT INTO HIGH ORDER 

Apel Sy sPRINT MEMORY ADDRESS LOW IN ERROR 
1,- 

@PRITO, -( SP) 

@2,-(SP 

SP RO 

CSPNTB 

©6,SP 


SEQ 040 


C4 


SEQ 041 


BRYFaco BA iRBony 1PEPRRDBAERE 0 FEB. 04 18155 


1001 010222 PRINTB @PRIT1I,R2 sPRINT MEMORY ADDRESS HIGH IN ERROR 
010222 MOV R ) 


010246 


010224 012746 010311’ MOV @PRIT1, -( SP) 
010230 012746 000002 MOV @2,-(SP) 
010234 010600 MOV P,RO 
010236 104414 TRAP CsPNTB 
010240 062706 000006 ADD 06, SP 
ree 010244 000207 RTS PC sRETURN 
1 
1004 010246 045 116 045 PRITO: .ASCIZ ‘sNBA MEMORY TEST ADDRESS LOW = #06’ 
1005 010311 045 116 045 PRIT1: .ASCIZ ‘sNSA MEMORY TEST ADDRESS HIGH = #06‘ 
1006 EVEN 
1008 
1009 .SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
1010 
1011 ¢ 
1012 3 
1013 sROUTINE TO ISSUE A SPACE RECORDS 
yt sCOMMAND (FORWARD OR REVERSE ) 
1 : 
1016 : INPUT: 
1017 ’ 
1018 : R3 NUMBER OF RECORDS TO BE SPACED OVER 
1019 3 BIT1S CONTROLS OIRECTION 
1020 3 BIT1S = O IS FORWARD 
1021 : BIT15 = 1 IS REVERSE 
| : RS FIRST DEVICE UNIBUS ADDRESS 
3 
‘eos 3 REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
’ 
1026 ;OUTPUT: 
1027 3 
1028 3 CARRY SET - SPACE RECORDS COMMAND OK 
1029 3 CLR - SPACE RECORDS FAILED 
1030 : 
1031 3 
ets] : RO THE CONTENTS OF R4& IS MOVED TO RO 
3 
1034 : 
sone sIMPLICIT OUTPUT: 
ry 
1037 : TAPE HAS BEEN MOVED 
1038 3 
1039 sSIDE EFFECTS: 
1040 : 
1041 5 
1042 3° 
1043 
1044 010356 SPACE: : 
1045 010356 SAVREG sSAVE THE GENERAL REGISTERS 
1046 010362 012737 000764 010550' Vv #500. , SDELAY 3SET UP DELAY 
1047 010370 012737 140010 010540’ MOV #140010, 808 sSET UP COMMAND, SPACE FORWARD 
1048 010376 005703 TST RS sCHECK FOR DIRECTION 
1049 010400 100403 BMI 53 36R, IF REVERSE INDICATED 
1050 010402 010337 010542’ MOV R3,908 :LOAD UP NUMBER OF RECORDS TO SPACE 
1051 010406 000407 BR 108% :GO DO COMMAND 


D4 


TSV3 - GLOBAL AREAS MACRO M1113 O1-FEB-84 18:55 SEQ 042 
SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
1052 010410 042703 100000 53; BIC @BIT15,R3 ry DIRECTION BIT 
1053 010414 010337 010542’ MOV R3,908 LOAD UP NUMBER OF RECORDS TO SPACE 
1054 010420 052737 000400 010540’ BIS eeire, aes iSET REVERSE BIT IN COMMAND PACKET 
1055 010426 012704 010540’ 10$: MOV 0803 +SET UP R4@ WITH PACKET ADDRESS 
1056 010432 010465 000000 MOV Ra TS0BCRS) sSEND OUT COMMAND 
1057 010436 004737 016140’ 15%: JSR PC ,WAITF sWAIT FOR SSR 
1058 010442 103420 ecs 20% s;8R, IF SSR IS SET AND OK 
1059 010444 DELAY 250 sDELAY aBout .25 SECONDS 
010444 012727 000250 MOV @250,(PC)>+ 
010450 000000 . WORD 
010452 013727 002116’ MOV LSOLY,(PC)> 
010456 . 0 
010460 005367 177772 DEC -6(PC) 
010464 001375 BNE .-4 
010466 005367 177756 DEC -22(PC) 
010472 001367 BNE .-20 
1060 010474 005337 010550’ DEC SDELAY sBUMP DELAY COUNTER DOWN 
1061 010500 001356 BNE 153 sBR, IF MORE DELAY 
1062 010502 000411 BR 60$ 38R IF TROUBLE CARRY = CLEAR 
1063 010504 016501 000002 208: MOV TSSRCRS),R1 sREAD TSSR 
1064 010510 012702 000200 MOV @SSR,R2 3SET UP ewecres 
1065 010514 020201 25%: cmp R2,R1 sARE THEY 
1066 010516 001401 BEQ 40% 3BR, IF tom, © OK 
1067 010520 000402 BR 60$ sTROUBLE EXIT 
1068 010522 000261 40$: SEC . sSET CARRY NO TROUBLE 
1069 010524 000401 BR 708 sEXIT 
1070 010526 000241 60%: cic ;CARRY CLEAR = ERROR 
1071 010530 708: 
1072 010530 010400 MOV R4,RO sPASS PACKET ADDRESS 
1073 010532 000207 RTS RETURN 
1074 
1075 3 
1076 Fy 
1077 ; . 
sore s;PACKET FOR SPACE COMMAND 
Q 
1081 010534 -BLKB 10-<«. -TSV2E7> 
1083 ; 
1084 ;COMMAND WORD 
1085 010540 000000 803: . WORD 
1086 sNUMBER OF RECORDS TO BE SPACED OVER wORD 
1087 010542 000000 90%: . WORD 
1088 010544 000000 . WORD 
1089 010546 000000 . WORD 
1090 010550 000000 SDELAY: .WwORD 0 s;DELAY COUNTER 
1091 EVEN 
1092 
1093 
te -SBTTL WRICHR - WRITE CHARACTERISTICS COMMAND 
1096 3° 
1097 ; 
1098 sROUTINE TO ISSUE A WRITE CHARACTERISTICS 
oe sCOMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 
+ 
1101 ; INPUT; 


TSV3 - GLOBAL ARE 


WRTCHR 


. WRITE C CHARACTERISTICS COMMAND 


010702 


E4 


MACRO M1113 01-FEB-84 18:55 SEQ 043 
R4 viet Ee OF PACKET FROM TEST 
RS FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 
OUTPUT: 
RO TSSR CONTENTS 


000002 


CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 


IMPLICIT OUTPUT: 


MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS: 
EXTFEA = EXTENDED FEATURES PRESENT 
BENBSW = BUFFER ENABLE SWITCH ON OR OFF 


SIDE EFFECTS: 


WRTICHR:: 
SAVREG sSAVE THE GENERAL REGISTERS 
CLR BENSSW ;CLEAR BUFFER ENABLE SWITCH 
CLR EXTFEA sCLEAR EXTENDED FEATURES SW SWITCH 
108: MOV R4, TSDBCRS) 3SENO OUT COMMAND 
JSR PC,.CHKTSSR sWAIT FOR SSR 
6cs 203 368R, IF SSR IS SET AND OK 
BR 60% 3;8R IF TROUBLE CARRY = CLEAR 
208: MOV TSSRCRS),R1L sREAD TSSR 
MOV @SSR,R2 sSET UP EXPECTED 
BIT OOFL ,.R1 sWAS OFF LINE SET IN TSSR 
BEQ 253% ;6R, IF NO OFL SET 
BIS @OFL ,R2 sMAKE THEM LOOK ALIKE 
253: CMP R2,R1 sARE THEY OK 
BEQ 40$ 36R, IF EQUAL = OK 
BR 60% s TROUBLE EXIT 
40%: ADD 08. .R4 sPOINT TO WRT CHARA DATA PACKET 
MOV (CR4),R3 sGET ADDRESS OF MESSAGE BUFFER 
BIT @x2. EXTF, xSTOCR3) sEXTENDED FEATURES BIT SET? 
BEQ 453 ;6R IF NO 
- INC EXTFEA 3SET EXTENDED FEATURES SW SWITCH 
4S$: 
BIT @x2.BUFE,xST2(R3) sBUFFER ENABLE SWITCH SET 
BEQ 508 ;B8R, IF SWITCH NOT SET 
one INC BENBSW 3SET SOFTWARE SWITCH FOR ENABLED 
SEC 3SET CARRY NO TROUBLE 
BR 70% 3EXIT 
60%: cic sCARRY CLEAR = ERROR 
708: MOV TSSRC(RS),RO sRETURN TSSR CONTENTS 
RTS PC ;RETURN 


-SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 


TSV3 - GLOBAL AREAS MACR 1 -FEB -84 :55 
- POSITION TAPE (CREW NOS COHAN 


REWIND 


010704 
010704 
010710 
010714 
010720 
010724 
010730 
010732 
010732 
010736 
010740 
010744 
010746 
010752 
010754 
010760 
010762 
010764 
010766 
010770 
010772 


010774 


000000 
013727 
000000 


102010 
000000 


3¢ 


F4 


SEQ 044 


i 
sTHIS ROUTINE WILL REWIND THE SELECTED TAPE. 


THE ROUTINE DOES NOT WAIT FOR BOT 
TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 


INPUT: 
8 
F 
3 
3 
sOUTPUT 
3 
8 
3 
3 
ge 
REwW 
011000' 
000000 
000550 
016140' 10$: 
000372 
002116’ 
177772 
177756 
208: 
RWPACK ; 


CAUTION: 


SSR TO SET IN THE TSSR 


CALLING SEQUENCE: 


DO A SOFT INIT 


DO A WRITE CHARACTERISTICS 


JSR 


RS 


PC ,REWINOD 


FIRST DEVICE UNIBUS ADDRESS 


THE CONTENTS OF R4 IS PASSED TO RO 


ORWPACK ,R4 
aa TSDBCRS) 


PC. WALTF 
208 


250. 
+ anal 
eit 


10-<, -TSV2E7> 


102010 
0 


sSAVE R1-RS UNTIL NEXT RETURN 

sGET PACKET ADDRESS 

sSEND PACKET ADORESS TO EXECUTE 
sENOUGH TIME FOR 2400’ REEL TO REWIND 
sWAIT FOR SSR TO SET 

sLEAVE WHEN SSR IS SET 

sWAIT FOR .25 SECONDS 


sBUMP COUNTER DOWN 

sKEEP GOING 

sCLEAR CARRY TO SET ERROR 
sPASS THE PACKET ADDRESS 
sRETURN 


sPOSTION COMMAND (REWIND) 
sNOT USED 


CKRAM - COMPARE RAM TO I/O PACKET 


TSv3 - GLOBAL AREAS 


CKRAM 


1211 
lele 
1213 


011112 


012701 


MACRO M 113 01-FEB-84 
COMPARE RAM TO I/O PACKE — 


002234' 
000201 


016226' 
000000 
016226' 
000000 
016226' 
000000 


000210 


000010 002274' 


3¢ 


G4 


3 
sROUTINE TO READ THE FLRST 8 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


3 
: INPUT; 


F 
3OUTPUT: 


10$: 


208: 


30$: 
50$: 


R4 
RS 


CARRY 


ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 


CLR - RAM DOES NOT MATCH PACKET 


IMPLICIT OUTPUT: 


THE TABLE ay IS FILLED WITH THE 
DATA HELD IN R 
RAMSIZ IS SET 10. 8. FOR PRAMPKT ROUTINE 


SIDE EFFECTS: 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


. SBTTL 


@RAMDATA,R1 
ne 
PC,.CHKTSSR 
@0, TSOBCRS) 
PC,.CHKTSSR 
R2, TSOBCRS) 
PC,.CHKTSSR 
TSBACRS),(CR1) 
CR1)+,CR4)+ 

$ 


SOs 
08. ,RAMSIZ 
PC 


CKRAM2 


sSAVE THE GENERAL REGISTERS 
sADDRESS TO SAVE THE RAM DATA 
sBYTE ADDRESS OF FIRST RAM DATA 
sCLEAR THE ERROR FLAG 

;WAIT FOR SSR 

sSET MAINTENANCE MODE 

sWAIT FOR SSR TO SET 

sSELECT NEXT RAM ADDRESS 
sWAIT FOR SSR TO SET 

sREAD THE RAM DATA 

3 COMPARE A eachiaes 


AG 
sADDRESS OF NEXT RAM LOCATION 
;REACHED END YET ? 
sBRANCH TILL ALL READ 


;CLEAR CARRY TO SHOW ERROR 
3sAND EXIT 


sRET 


- COMPARE RAM TO I/O CHARACTERISTICS DATA 


SEQ 045 


sSHOW GOOD COMPARE 
_— FOR PRAMPKT ROUTINE 


H4 


TSV3_- GLOBAL AREAS MACRO m1213 4 eas eS te SEQ 046 


CKRAM2 - COMPARE RAM TO I/0 CHARACTER 
1268 sROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM R 
1269 sMEMORY AND COMPARE THIS DATA TO A BMARACTERTSTICS DATA BLOCK. 
1270 F 
1271 ; INPUT: 
1272 3 
1273 : R4 ADDRESS OF THE CHARACTERISTICS DATA 
ers F RS FIRST DEVICE UNIBUS ADDRESS 
1 3 
1276 ;OUTPUT: 
1277 3 
1278 8 CARRY SET - RAM MATCHES PACKET 
1279 ; CLR - RAM DOES NOT MATCH PACKET 
1280 3 
74} s IMPLICIT OUTPUT: 
1 3 
1283 3 THE TABLE yy IS FILLED WITH THE 
1284 3 DATA HELD IN R 
1285 3 RAMSIZ IS SET 10° 8. OR 10. FOR PRAMPKT ROUTINE 
1286 3 
oH ;SIDE EFFECTS: 
3 
1289 3 THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 
1290 3 
1291 i- 
1292 
1293 011114 CKRAM2: : 
1294 011114 SAVREG sSAVE THE GENERAL REGISTERS 
1295 011120 012701 002234’ MOV @RAMDATA,R1 sADDRESS TO SAVE THE RAM DATA 
1296 011124 012702 000167 MOV ORMCHBEG ,R2 sBYTE ADDRESS OF FIRST RAM DATA 
1297 011130 005003 CLR R3 sCLEAR THE ERROR FLAG 
1298 011132 004737 016226' JSR PC,CHKTSSR ;WAIT FOR SSR 
1299 011136 112765 000000 000000 MOVB 60, TSOBCRS) :SET MAINTENANCE MODE 
1300 011144 004737 016226’ 10$: JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
1301 011150 010265 000000 MOV R2,TSOBCRS) ;SELECT NEXT RAM ADDRESS 
1302 011154 004737 016226’ JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
1303 011160 116511 000000 - M™OVB TSB4(R5),C(R1) sREAD THE RAM DATA 
1304 011164 122124 CMPB CR1)+,(R4)> sCOMPARE TO EXPECTED 
1305 011166 001401 BEQ 20$ sBRANCH IF OK 
1306 011170 005203 INC R3 3SET ERROR FLAG 
1307 011172 005202 20%: INC Re sADDRESS OF NEXT RAM LOCATION 
1308 011174 012737 000010 002274' MOV 08. ,RAMSIZ ;ASSUME EXTFEA NOT SET 
1309 011202 005737 002220’ TST EXTFEA 3IS THE SOFTWARE EXTENDED FEATURES SET 
1310 011206 001407 BEQ 25% ;68R, IF NOT SET 
1311 011210 012737 000012 002274' MOV 10. ,RAMSIZ sSET RAMSIZ FOR EXTEND FEATURES 
1312 011216 020227 000200 CMP R2, ORMCHEND sAT FND OF EXTENDED BUFFER 
1313 011222 003750 BLE 10$ 38R, IF NOT AT END YET 
1314 011224 000403 BR 27% sAT END BRANCH 
1315 011226 020227 000176 258: CMP R2, ORMCHEND -2 sREACHED END YET ? 
1316 011232 003744 BLE 10$ sBRANCH TILL ALL READ 
1317 011234 005703 273: TST R3 sWAS AN ERROR FOUND ? 
1318 011236 001402 BEQ 30$ sBRANCH IF NOT 
1319 011240 000241 CLC ;CLEAR CARRY TO SHOW ERROR 
1320 011242 000401 BR 50$ sAND EXIT 
1321 011244 000261 30$: SEC :SHOW GOOD COMPARE 
roo. 011246 000207 50$: RTS PC sRETURN 


TSV3_- GLOBAL AREAS 


CKMSG 


011250 


MACRO id 
- COMPARE WRITE CHAR. 


002276' 
002300' 
003126' 


017210' 


002314' 
002460' 


000002 
000014 


000200 
000016 


MES 


14 


ice bur Fere’ 18:55 SEQ 047 


000012 


-SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 


s¢ 


; 

sROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
s;BUFFER,. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


3 
3; INPUT; 
3 
3 RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
3 R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
R2 EXPD MESSAGE BUFFER ADDRESS 
;OUTPUT: 
3 
3 CARRY SET - MESSAGE BUFFERS MATCH 
3 CLR -MESSAGE BUFFERS DON’T MATCH 
3 
sIMPLICIT OUTPUT: 
3 
3 EXPMSG BUFFER IS SET TO EXPD DATA 
3 RECMSG BUFFER IS SET TO RECV DATA 
: RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
3 RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
3 
CKMSG: : 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV RO, RCVHIADD sSAVE RECV HIGH ADDRESS 
MOV R1,RCVLOAD sSAVE RECV LOW ADDRESS 
TST K TENABLE sTESTING ABOVE 28K? 
BEQ 10$ 38R IF NO 
JSR PC,SETMAP sRETURN ADDRESS BIASED TO PARG6 IN RO 
MOV RO,R1 3GET RETURNED ADDRESS BIASED TO PARE 
10$: CLR R4& sWORD IN BUFFER 
CLR R3 sCLEAR ERROR SEEN FLAG 
MOV R2,R5 sGET EXPD BUFFER ADDRESS 


158: MOV CR2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
MOV (R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 


CMP CR2)+,CR1)> sEXPD EQUAL RECV? 
BEQ 25% sBR IF YES 
INC R3 s;SET ERROR SEEN FLAG 
25%: ADD @2,R4 sPOINT TO NEXT WORD ADDRESS 
CMP R4,014 sDONE FIRST 7 WORDS? 
BLE 15% 3;BR IF NO 
BIT @X2.EXTF, xST2(RS) 31S EXTENDED FEATURES SET IN EXPD? 
BEQ 50s 3BR IF NO 
CMP R4,016 ;DONE EXTENDED FEATURES WORD? 
BLE 15% sBR IF NO 
50$: TST R3 TANY ERRORS SEEN? 
BEQ 5S$ sBR IF NO 
CLC sSET FAILURE 
BR 60$ H 
553%: SEC sSET SUCCESS 
60$: RTS PC sRETURN 


-SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


TSV3_- GLOBAL AREAS 


CKMSG2 


011370 
011370 
011374 
011400 
011402 
011406 
011406 
011412 
011416 
011420 
011422 
011426 
011432 
011436 
011442 
011444 


011512 


020327 
003412 
012703 


012746 


MACRO M1113 01 = 84 18:55 
- COMPARE EXPD RECV MESSAGE BUFFERS 


000144 
000144 


011522’ 
000001 


000004 

002276' 
002300' 
003126' 


017210' 


002314’ 
002460' 


000001 


3¢ 


J4 


a 

sROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


i 
; INPUT: 


CARRY 


RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPO MESSAGE BUFFER ADDRESS 

NUMBER OF BYTES TO COMPARE 


SET - MESSAGE BUFFERS MATCH 
CLR - MESSAGE BUFFERS DON’T MATCH 


s IMPLICIT OUTPUT: 


; 
; 
: 
; 
; 
; 
he 
C 


KMSG2: : 


5$: 


108: 
15%: 


25%: 


50$: 


EXPMSG BUFFER IS SET TO EXPD DATA 

RECMSG BUFFER IS SET TO RECV DATA 

RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
CMP R3, ORECMSG -EXPMSG;880 IS COUNT ABOVE MAX ALLOWED? 
BLE S$ 3980 BR IF NO 

MOV @RECMSG -EXPMSG, R3;880 

PRINTF @DEBUGMSG :880 

MOV @DEBUGMSG , -( SP) 

MOV #1,-CSP) 

MOV SP ,RO 

TRAP CSPNTF 

ADD 04,SP 

MOV RO,RCVHIADD sSAVE RECV HIGH ADDRESS 

MOV R1,RCVLOAD sSAVE RECV LOW ADDRESS 

TST K TENABLE sTESTING ABOVE 28K? 

BEQ 10$ ;68R IF NO 

JSR PC, SETMAP sRETURN ADDRESS BIASED TO PARG6 IN RO 
MOV RO,R1 sGET RETURNED ADDRESS BIASED TO PAR6 
CLR Ra sWORD IN BUFFER 

CLR RS sCLEAR ERROR SEEN FLAG 

MOVB (R2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
MOVB (R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 
CMPB CR2)+,CR1)> sEXPD EQUAL RECV? 

BEQ 25% 3;B8R IF YES 

INC RS ;SET ERROR SEEN FLAG 

ADD @1,R4 sPOINT TO NEXT BYTE 

CMP R4,R3 sDONE ALL BYTES? 

BGE 50$ ;6R IF YES 

BR 15$ :00 NEXT BYTE 

TST RS ;ANY ERRORS SEEN? 

BEQ 55% ;6R IF NO 

CLC ;SET FAILURE 


SEQ 046 


KK4 


TSV3 - GLOBAL AREAS MACRO M1113 O2 ERR -84 18:55 SEQ 049 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFE 
1434 011514 000401 BR 60$ 3 
1435 011516 000261 55$: SEC ;SET SUCCESS 
Pt 011520 000207 60$: RTS PC sRETURN 
14 
1438 011522 120 122 117 DEBUGMSG: -ASCIZ ‘PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-’ ;aa0 
1439 011612 045 116 045 FERCM: .ASCII /SNSA se0/ 
1440 011623 040 040 124 ERCM: -ASCIZ / TSSR ERROR CODE REC'D = / 
1441 011656 056 056 0S6 SIMSG: .ASCIZ /.... AFTER DOING SOFT INIT/ 
1442 011711 124 105 123 TINERR: .ASCIZ /TEST: .../ 
1443 -EVEN 
1444 
1445 
1446 ‘¢ 
1447 ; 
pe sPRINT ROUTINE TO FATAL SOFT INIT ERRORS 
144 j 
1450 ; INPUT: 
1451 3 
rf i R1 CONTENTS OF TSSR AT ERROR 
14 3 
1454 ;SIDE EFFECTS: 
1455 3 
pee ; EXECUTES DROP UNIT TO CEASE TESTING 
3 
1458 3° 
1459 
1460 011724 BGNMSG SFIMSG 
011724 SFIMSG:: 
1461 011724 004737 005632’ JSR PC,.PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
1462 011730 004737 017074' JSR PC ,CKDROP sDROP UNIT, IF ALLOWED 
1463 011734 ENOMSG 
011734 L10003: 
011734 104423 TRAP C$MSG 
1464 
1465 ze 
1466 sPRINT ROUTINE TO PRINT THE CONTENTS OF 
pod ;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 
3 
1469 ; INPUTS: 
1470 H 
1471 ; R1 TSSR CONTENTS 
1472 3 R4 ADDRESS OF COMMAND PACKET 
1473 : 
1474 2 
1475 
1476 011736 BGNMSG PKTSSR 
011736 PKTSSR:: 
1477 011736 004737 005632’ JSR PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
1478 011742 012700 000004 MOV 04,R sNO. OF WORDS IN PACKET 
1479 011746 004737 007260' JSR PC ,PRIPKT sPRINT THE CONTENTS OF COMMAND PACKET 
1480 011752 ENOMSG 
011752 10004: 
011752 104423 TRAP C$MSG 
1481 
1482 ie 
1483 sPRINT ROUTINE TO PRINT THE CONTENTS OF 


1484 3TSSR AND A GET STATUS COMMANC PACKET. 


TSV3 - GLOBAL AREAS 


CKMSG2 


011754 
011754 
011754 
011760 
011764 
011770 
011770 
011770 


011772 
011772 
011772 
011776 
011776 
011776 


012000 
012000 
012000 
012004 
012006 


012010 


012014 
012014 
012014 


004737 
012700 
004737 


104423 


004737 


104423 


004737 
010200 
010301 
004737 


104423 


L4 


MACRO M1113 01-FEB-84 18:55 
- COMPARE EXPD RECV MESSAGE BUFFERS 


005632’ 


005632’ 


014132’ 


} INPUTS: 


R1 TSSR CONTENTS 
R4 ADDRESS OF COMMAND PACKET 


BGNMSG PKTGETS 


PKTGETS:: 
JSR PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
MOV #2,RO0 sNO. OF WORDS IN GET STATUS PACKET 
JSR PC ,PRIPKT SPRINT THE CONTENTS OF COMMAND PACKET 
ENOMSG 

L10005: 


TRAP C$MSG 


3° 
sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 


3 
3; INPUTS: 


3¢ 


R1 TSSR CONTENTS 
R4 ADDRESS OF COMMAND PACKET 


BGNMSG SFFMSG 


JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
ENOMSG 
TRAP C$MSG 


-SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 


3 
sPRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 


;BUFFER 


3 
; INPUTS: 


L10007; 


FOR ERROR REPORTS 


R1 CONTENTS OF TSSR 
R2 LOW ORDER MESSAGE BUFFER 
R3 HIGH ORDER MESSAGE BUFFER ADDRESS 


NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 


BGNMSG PKTMES 


JSR PC,PRITSSR sPRINT CONTENTS OF TSSR 
MOV R2,RO sLOW ORDER ADDRESS 

MOV R3,R1 sHIGH ORDER ADDRESS 

le PC ,PRMESS sPRINT THE MESSAGE BUFFER 


TRAP C$MSG 


SEQ 050 


AW 
a< 


012016 
012016 


004737 
016501 
004737 


104423 


012700 
005737 
001402 
012700 
004737 


104423 


000007 
002220' 


000010 
014442’ 


A RO 215-04 -FEB-84 18:55 


.SBTTL 


M4 


ADDSSR - PRINT TEST ADDRESS AND TSSR 


3¢ 
;PRINT ROUTINE TO PRINT THE CONTENTS OF 
;TSSR AND A MEMORY TEST ADDRESS 


3 
; INPUTS: 
} 
3 RS 
; ERRHI 
: ERRLO 
Be 
BGNMSG 
ADOSSR 
JSR 
MOV 
JSR 
ENOMSG 
L10010: 
TRAP 
. SBTTL 


3¢ 


FIRST DEVICE UNIBUS ADDRESS 
HIGH ORDER MEMORY TEST ADDRESS 
LOW ORDER MEMORY TEST ADDRESS 


ADOSSR 

PC ,PRITADD sPRINT MEMORY TEST ADDRESS 
TSSRCRS),R1 sGET CURRENT TSSR 

PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
C$MSG 


MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 


; 
;PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
;IMPLICIT INPUTS: 


3 
3 EXPMSG - EXPECTED MESSAGE BUFFER 
3 RECMSG - RECEIVED MESSAGE BUFFER 
3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
3° 
BGNMSG MSGEXP 
MSGEXP: : 
MOV #7,RO ;ASSUME NO EXT FEATURES 
TST EXTFEA 3EXT FEATURES SET? 
BEQ S$ ;BR IF NO 
MOV #8. ,R9 ;EXT FEATURE BUFFER IS 8 WORDS 
S$ JSR PC ,PRMSGEXP ;PRINT EXPD/RECV MESSAGE BUFFERS 
ENDMSG 
L10011 
TRAP C$MSG 
.SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 


3* 


H 
sPRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 


, 
; R1 


- BYTE COUNT 


; 
s; IMPLICIT INPUTS: 


; 
; EXPMSG 


- EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 


SEQ 051 


TSV3 - 

FIFEXP 
1584 
1585 
1586 


1587 


*" 1588 


GLOBAL 


- PRIN 


012201 


012240 
012240 


T 


et? 


F 


010146 
012746 


012701 


N4 


MACRO M4445 01-FEB-84 18:55 


O EXP/RECV D 


012132’ 
000002 


000006 
012201' 
000001 
000004 
015012' 


116 045 
116 045 


012302’ 


000001 


000004 


000012 
014442' 


FIFEXP:;: 


L1001e: 


FIF1iMSG: 
FIFOMSG: 


4 SEQ 052 


RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 


BGNMSG FIFEXP 


PRINTX @FIF1MSG,R1 
MOV R1, -(SP) 

MOV OF IF 1MSG, -CSP) 
MOV #2, -(SP) 


MOV SP ,RO 
TRAP CSPNTX 
ADD #6 ,SP 


PRINTX @FIF2MSG 
MOV oF IF2HSG, -(SP) 


MOV SP ,RO 

TRAP C$PNTX 

ADD #4 ,SP 

MOV R1,RO 

JSR PC ,PRBYTEXP 
ENOMSG 


TRAP C$MSG 


sPRINT BYTES TRANSFERRED 


sPRINT HEADER MSG 


;GET BYTE COUNT 
sPRINT FIFO BYTES IN ERROR 


-ASCIZ ‘sNSA NUMBER OF BYTES TRANSFERRED = D2’ 
-ASCIZ ‘sNSA FIFO DATA BYTES IN ERROR: ’ 


-SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


‘ 
sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
3 . 


; 
IMPLICIT INPUTS: 


EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGSTAT 


MSGSTAT: 
MOV @STATCOD,R1 
10$: MOV (R1)+,RO 
BEQ 20$ 
PRINTX RO 
MOV RO, -(SP) 
MOV SP ,RO 
TRAP C$PNTX 
ADD #4 ,SP 
BR 10$ 
208: MOV #10. ,RO 
JSR PC ,PRMSGE xP 
ENDMSG 
L10013: 


TRAP C$MSG 


sASCII ADDRESS TABLE 
sDONE ALL MSG LINES? 
;BR IF YES 

sPRINT STATUS BIT NAMES 


:00 ANOTHER MSG LINE 
sNUMBER OF WORDS IN A READ STATUS BUFFER 
sPRINT EXPD/RECV MESSAGE BUFFERS 


TSv3_- pee, AREAS 


MSGSTA 


012302 


012320' 
) 


012701 


012100 


104423 
013036' 


MACRO M1113 0 
- PRINT STATUS HEADER AND MESS 


012362' 012453’ 
116 S 


1 04 
116 045 
116 045 
116 045 
116 045 
116 045 

013016' 

000001 

000004 

000012 

014442' 

013111' 013210° 
116 045 
116 045 
116 045 
116 045 
116 045 
116 045 
116 045 


BS 


-FEB-84 18:55 

BUFFERS 

STATCOOD: -WORD 18,28,3%,4%,5%,6%,0 

1%:.ASCIZ ‘SNSA Tepe Bus Signele in Word 08:' 

2$;.ASCIZ ‘sNSA PARERR<15> IEOT <12> IFMK <9> IRDY<6> 

3%;:.ASCIZ ‘siNsA IRESV2<14> IIDENT<11> IMER <8>» ION <5> 

4$;.ASCIZ ‘sNSA TRESVi<13> ICER <10> ISPEED<7> ILDP<4> 

5%:.ASCIZ ‘sNSA Tape Bus Signals in Word 09;' 

— — DATMIS<7> ILW<6> OUTRDY<S> INRDY<4>' 
EV 


-SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


| 
a 
sPRINT ROUTINE TO 
a 
sIMPLICIT INPUTS: 


PRINT MESSAGE BUFFER EXPD/RECV 


é 
sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


SEQ 053 


IRWO<2>' 
IFBY<1>' 
IFPT<O>' 


: 
3 EXPMSG - EXPECTED MESSAGE BUFFER 
3 RECMSG - RECEIVED MESSAGE BUFFER 
3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADORESS 
3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
ge 
BGNMSG MSGLOOP 
MSGLOOP: ; 
MOV @LOOPCOD,.R1 sASCII ADORESS TABLE 
108: MOV CR1)+,RO sDONE ALL MSG LINES? 
BEQ $ 38R IF YES 
PRINTX sPRINT STATUS BIT NAMES 
MOV RO, -(SP) 
MOV @1,-C(SP) 
MOV SP ,RO 
TRAP CSPNTX 
ADO @4,SP 
BR 108 300 ANOTHER MSG LINE 
208: MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
JSR PC, PRMSGEXP SPRINT EXPD/RECV MESSAGE BUFFERS 
ENOMSG 
L10014; 
TRAP CSMSG 
LOOPCOD: . WORD 1$,28,3%,48,58,6%,78,0 
1$:.ASCIZ ‘SNSA Tape Bus Loopback Signele in Word 06: 
2$:.ASCIZ ‘sNBA PARERR< 15> TRESV2<14> IRESV1<13>° 
3%;.ASCIZ ‘sNSA IHISP=>IEOT<12> IWRT* >I IDENT<11> IREV *>ICER <10>' 
4¢:.ASCIZ ‘sNSA IWFM => IFMK<09> IEDIT*>IHER <08> IFAD *=>ISPEED<07>’ 
5%:.ASCIZ ‘NSA ITADO+>IRDY<06> ITADL=>IONL <05> IERASE=>ILOP <04>: 
6%:.ASCIZ ‘sNBA IREW =>IOBY<03> IRWU =>IRWD <0O2> IFEN *>IFBY <O1>' 
7%$:.ASCIZ ‘sNSA IGO =>IFPT<00>' 
EVEN 
-SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


LS 


T 7 FER. 
metsua “PRR DAT Te suas SPH Ae ssack aCRPER® 18*55 — 
1668 sIMPLICIT INPUTS: 
t 
1670 , EXPMSG - EXPECTED MESSAGE BUFFER 
1671 : RECMSG - RECEIVED MESSAGE BUFFER 
1672 , RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
1678 , RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
fs ‘- 
1675 013682 as BGNMSG MSGSUB 
2 23 
1676 013632 012700 000012 MOV #10. ,RO 1SIZE OF WRITE SUBSYSTEM BUFFER 
1677 013636 004737 014442° JSR PC , PRMSGEXP sPRINT EXPD/RECV MESSAGE BUFFERS 
re Oiseas —_— 
013642 104423 “ TRAP = C8MSG 
1679 
1680 
1681 
1688 
1684 .SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 
id 
1686 3 
1687 ;PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
i 
1689 ;IMPLICIT INPUTS: 
3 
1691 ; ERRHI - MEMORY ERROR HIGH ORDER ADORESS 
1692 : ERRLO ~- MEMORY ERROR LOW ORDER ADDRESS 
1693 ; EXP - EXPECTED DATA 
1694 ; RECV - RECEIVED DATA 
ge 
1696 013644 a BGNMSG MEMADD 
1697 013644 004737 010050' "” JSR PC ,PRLADD sPRINT MEMORY ADDRESS IN ERROR 
1698 013650 013701 002224’ MOV EXPD,R1 sGET EXPD DATA 
1699 013654 013702 002226’ MOV RECV,R2 :GET RECEIVED DATA 
1700 013660 004737 007632' JSR PC, PRIXOR sPRINT EXPD/RECV 
ee Sttesa 
L10016: 
brass 013664 104423 TRAP C$MSG 
1703 .SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 
Hg ; 
1706 }PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
roe s;WHEN THE RAM DATA DOES NOT MATCH. 
3 
1709 s INPUTS: 
a 
1711 : Ra POINTER TO COMMAND PACKET 
4 
1718 sIMPLICIT INPUTS: 
1715 : RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 


IF RAMSIZ*O THEN DEFAULT TO 8. 


- 
~ 
~ 
oa 

~~ oF oe 


BRiSecr BAW PRRAR aio BREREY"BAHE °1-FES-84 18:55 


D5 


1719 sIMPLICIT OUTPUTS: 
1720 3 
1721 ; RAMSIZ SET TO 0 
1722 t- 
1723 
1724 013666 PRAMPKT: 
1725 013666 SAVREG sSAVE R1-RS UNTEL NEXT RETURN 
1726 013672 012701 002234’ MOV @RAMDATA,R1 sDATA FROM THE R 
1727 013676 005002 CLR R2 sINIT BYTE NUMBER” 
1728 013700 122124 5%: CHPB CR1)+,(R4)> sCOMPARE EXPECTED, RECEIVED 
1729 013702 001005 BNE 7$ 38R IF NO MATCH 
1730 013704 FORCERROR 7%,NOTSSR 
1731 013714 000436 BR 10$ +880 
1732 013716 116105 177777 78: MOVB -1(R1),R5 sGET RECV RAM DATA 
1733 013722 116403 177777 MOVB -1(R4),R3 sGET EXPD PACKET DATA 
1734 013726 xOR RS,R3 3XOR EXPD/RECV 
1735 013736 042703 177400 BIC @177400,R3 3LOW BYTE ONLY 
1736 013742 116137 177777 002226’ MOVB -1(R1),RECV sGET RECEIVED RAM DATA 
1737 013750 116437 177777 002224’ MOVE -1(R4), EXPO ;GET EXPECTED RAM DATA 
1738 013756 PRINTB @RAMASC,R2,RECV,EXPD,R3S 

013756 010346 MOV R3,-C(SP) 

013760 013746 002224: MOV EXPD, -( SP) 

013764 013746 002226' MOV RECV, -( SP) 

013770 010246 MOV R2,-(SP) 

013772 012746 014046’ MOV @RAMASC, -( SP) 

013776 012746 000005 MOV 5, -(SP) 

014002 010600 MOV SP ,RO 

014004 104414 TRAP CSPNTB 

014006 062706 000014 ADO 014,SP 
1739 014012 108: INC ra sUPDATE BYTE Count 
1740 014014 005737 002274' TST RAMSIZ sOEFAULT TO 8. 
1741 014020 001404 BEQ 158 38R IF YES 
1742 014022 020237 002274’ cme R2,RAMSIZ s;DONE ALL BYTES? 
1743 014026 003724 BLE 53 ;8R IF NO 
1744 014030 000403 BR 25% : 
174S 014032 020227 000010 153: CMP R2,08 sD0NE DEFAULT NUMBER OF BYTES? 
1746 014036 002720 208: BLT 5$ :8R IF 
1747 014040 005037 002274’ 258: CLR RAMSIZ sSET DEFAULT RAMSIZ 
oe 014044 000207 RTS PC sRE TURN 
+730 014046 045 116 045 RAMASC: -ASCIE ‘NSA BYTE: SD28A RAM: SO3SA Packet: SO3S8A XOR: 803’ 

.EV 
1752 
ores -SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 
t¢ 
1755 : 
1756 sTHIS ROUTINE PRINTS THE CONTENTS OF 
1757 ;THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE 
758 sTSV-05. 
1759 3 
1760 s INPUT: 
1761 
1762 ; RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
1763 : a HIGH ORDER ADORESS OF MESSAGE BUFFER 
part ; NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 
+ 

1766 sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


SEQ OSS 


TSV3 - GLOBAL 


PRMESS 


1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 


1780 


014310 
014355 
014413 


AS 


012746 


ARE MACRO M1113 01-FEB-84 18:55 
- PRINT CONTENTS OF MESSAGE BUFFER 


003126' 


014310' 
000003 


000010 
014355’ 
000001 


000004 


017210' 


PRMESS: 


108; 


508: 
Ap 


PR1ASC 
PRASC:. 


3? 


-ASCIZ 
cIz 


-ASCIZ 
EVEN 


ma 


RO,RS 
K TENABLE 
- 


1 
R1,R3 
RO 
R1 
@PROASC ,R1,R5 
RS, -(SP) 
R1,-CSP) 


on cant -(SP) 
@3, -(SP 
sP 


#1, -(SP) 


3,- SP) 
sP 


sSAVE THE REGISTERS 

sSAVE LOW ORDER ADDRESS 

sADDRESS ABOVE 28K? 

s8R IF YES 

sSET HIGH ORDER ADDRESS TO O 
sSAVE HIGH ORDER ADORESS 

sSHIFT BIT1S TO C BIT 

sSHIFT TO HIGH ORDER FOR PRINTOUT 
sPRINT MESSAGE BUFFER ADDRESS 


sPRINT HEADER FOR CONTENTS 


sNUMBER OF THE NEXT WORD 

sCOPY LOW ORDER ADDRESS 

sCOPY HIGH ORDER ADDRESS 

sBR IF NOT ABOVE 28K 

sSETUP PAR ADDRESS IN RO 

sGET PAR FORMAT ADDRESS ABOVE 28K 


sPRINT THE CONTENTS OF MEMORY BUFFER 


sNUMBER OF THE NEXT 
sOONE ALL YET ? 
;BRANCH IF ALL DONE 
sPRINT FIRST 7 WORDS 


a2. EXTF, xST2(R3) EXTENDED FEATUTES ON ? 


20% 
PC 


sPRINT EXTENDED STATUS WORD 
sRETURN 


‘SNSA Message Buffer Address += 601805' 
‘SNSA Message Buffer Contents: ' 


‘ sSNA 


WordsD1sA: #0‘ 


PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


é 
sROUTINE TO PRINT EXPECTED ANC RECEIVED MESSAGE BUFFERS 


SEQ 056 


TSV3_- GLOBAL AREAS 
PRM 


1824 


014442 
014442 
014446 
014450 
014454 
014456 
014462 


014620 


014622 
014667 
014725 


012746 


MACRO _M 
SGEXP - PRINT EXPD/RECV MESS 


002300 
002276' 
014622’ 
000003 


000010 


014667' 
000001 


014725' 
000005 


000014 


116 
116 


ro 


aes, C2 REC -84 18:55 


045 
045 


RO - NUMBER OF WORDS IN BUFFER 
IMPLICIT INPUTS: 
EXPMSG - EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER 
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


3 — 
PRMSGEXP: : 


SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
Vv RO,RS sSAVE NUMBER OF WORDS 

MOV RCVLOADD ,RO sGET RECV LOW ADDRESS 

MOV RO,R4 sCOPY LOW ADORESS 

MOV RCVHIADD ,R1 sGET RECV HIGH ADDRESS 

ROL RO sSHIFT BIT15 TO C BIT 

ROL R1 sSHIFT TO HIGH ORDER FOR PRINTOUT 

PRINTX @PRMSGO,R1,R4 sPRINT MESSAGE BUFFER ADORESS 

MOV R4,-(SP) 

MOV R1, -(SP) 

MOV » - CSP) 


AOD #10,SP 

PRINTX @PRMSG1 sPRINT HEADER FOR CONTENTS 
MOV @PRMSG1, -( SP) 

MOV @1,-(SP) 


ADD 4 ,SP 

CLR R4 sNUMBER OF THE CURRENT WORD 

MOV @EXPMSG ,R1 sGET EXPD BUFFER ADDRESS 

MOV @RECMSG ,R2 sGET RECV BUFFER ADDRESS 
20%: MOV (R1),RO sGET EXPD 

MOV CR2),R3 sGET RECV 


XOR RO,R3 sXOR EXPD/RECV 
MOV R3,-CSP) 


MOV 4.,-(S 

MOV @PRMSG2, -( SP) 

MOV @S,-(SP) 

MOV SP ,RO 

TRAP CSPNTX 

ADO #14,SP 

INC R4 sNUMBER OF THE NEXT 

CMP R4,R5 ;DONE ALL YET? 

BGE 50$ 3BR IF YES 

BR 20% 300 ANOTHER 
50$: RTS PC sRETURN 


PRMSGO: .ASCIZ ‘sNSA Message Buffer Address = #01805’ 
PRMSG1: .ASCIZ ‘sNSA Mess Buffer Contents: ' 


PRMSG2: .ASCIZ ‘sNSA WORD S8D28A EXPD: 068A RECV: SO68A_ XOR: 


SEQ 057 


TSV3 - GLOBAL AREAS 
PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


MACRO M1113 01-FEB-84 18:55 


G5 


SEQ 058 


PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


ONLY THE FIRST 6 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
- NUMBER OF BYTES IN BUFFER 


- EXPECTED MESSAGE BUFFER 
- RECEIVED MESSAGE BUFFER 


sSAVE R1-RS UNTIL NEXT RETURN 
sSAVE NUMBER OF BYTES 

sINIT ERROR COUNT 

sNUMBER OF THE CURRENT BYTE 
sGET EXPD BUFFER ADDRESS 
sGET RECV BUFFER ADDRESS 
sGET EXPD BYTE 

sCLEAR UPPER BYTE 

sSAVE FOR ERROR REPORT 

sGET RECV BYTE 

sCLEAR UPPER BYTE 

sFOR ERROR REPORT 

sXOR EXPD/RECV 

sEXPD = RECV? 

sBR IF YES 

sUPDATE ERROR COUNT 
sPRINTED 8? 


30 3;BR IF YES 
OPRBMSG ,R4,PRBEXP ,PRBREC .R3 


; 880 

;880 

sNUMBER OF THE NEXT 
sDONE ALL YET? 

3;8R IF YES 
300 ANOTHER 

sPRINT TOTAL ERROR COUNT 


1841 .EVEN 

1842 

1843 .SBTTL PRBYTEXP - 

1844 3¢ 

1845 3 

ae sROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 

1 ; 

1848 3 

1849 3 RO 

1850 Hy 

1851 sIMPLICIT INPUTS: 

1852 Fy 

1853 3 EXPMSG 

1854 3 RECMSG 

1855 3- 

1856 015012 PRBYTEXP: : 

1857 015012 SAVREG 

1858 015016 010005 MOV RO,RS 

1859 015020 005037 002312’ CLR 

1860 015024 CLR R4 

1861 015026 012701 002314' MOV @EXPMSG .R1 

1862 015032 012702 002460' MOV @RECMSG ,R2 

1863 015036 111100 20% MOVB CR1),RO 

1864 015040 042700 177400 BIC @tC<377>,RO 

1865 015044 110037 015360’ MOVB RO, PRBEXP 

1866 015050 111203 MOVB CR2),R3 

1867 015052 042703 177400 BIC @tC<377>,R3 

1868 015056 110337 015362’ MOVB R3,PRBREC 

1869 015062 xOR RO,R3 

1870 015072 122122 CMPB CR1)+,CR2)> 

1871 015074 001431 BEQ 30$ 

1872 015076 005237 002312’ INC PRMNO 

1873 015102 023727 002312’ 000010 CMP PRMNO, 08. 

1874 015110 101023 BHI $ 

1875 015112 27s: PRINTX 
015112 010346 MOV R3,-CSP) 
015114 013746 015362’ MOV PRBREC, -( SP) 
015120 013746 015360’ MOV PRBEXP, -(SP) 
015124 010446 MOV R4,-CSP) 
015126 012746 015226' MOV @PRBMSG, -( SP) 
015132 012746 000005 MOV 5, -(CSP) 
015136 010600 MOV SP ,.RO 
015140 104415 TRAP CSPNTX 
015142 062706 000014 @14,SP 

1876 015146 FORCEXIT 50$ 

1877 015156 000404 R 35$ 

1878 015160 308%: 

1879 015160 FORCERROR 27%,NOTSSR 

1880 015170 35%: 

1881 015170 005204 INC R4 

1882 015172 020405 CMP R4,RS 

1883 015174 002001 BGE 508 

1884 015176 000717 BR 20% 

1885 015200 50%: PRINTX @PRBTOT,PRMNO 
015200 013746 002312’ MOV PRMNO, -( SP) 
015204 012746 015313' © MOV OPRBTOT, -( SP) 
015210 012746 000002 MOV #2,-C(SP) 


TSv3 


- GLOBAL AREA 


MACRO_M 
PRBYTEXP - PRINT ERROR Byres IN 


015214 
015216 
015220 


886 015224 


015226 
015313 


015360 
015362 


015370 
015370 


015372 
015372 
015372 
015376 
015376 
015376 


010600 
104415 
062706 
000207 


045 
045 


000000 
000000 


004737 007632’ 


104423 


004737 007502' 


104423 


045 PRBMSG: 
045 PRBTOT: 


1B ele He Sshde BirPER 


PRBEXP: . 
PRBREC: .WORD 


. SBTTL 
ae 


; 

sPRINT ROUTINE 
; 

: INPUTS: 


R1 
R2 


EXPREC:: 


L10017: 


.SBTTL 
3° 


; 
sPRINT ROUTINE 
; 


H 
3: INPUTS: 
3 
: R1 
: R2 
3 
g = 
BGNMSG 
EXPBREC: : 
JSR 
ENDMSG 
L10020: 
TRAP 
.SBTTL 


H5 


sp RO 

sPNTX 

06 ,SP 

PC sRETURN 

'SNSA = BYTE OND2SA EXPD: SO3SA RECV: S038A XOR: 
‘SSNSA NUMBER OF BYTES IN ERROR = sD2° 

0 3EXPO 

0 ;RECV 

EXPREC - PRINT EXPD/RECV WORD DATA 


TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 


EXPREC 


PC ,.PRIXOR sPRINT THE DATA 


C$MSG 


EXPBREC - PRINT EXPD/RECV BYTE DATA 


TO DISPLAY BYTE EXPD/RECV DATA 


RECEIVED DATA BYTE 
EXPECTED DATA BYTE 


EXPBREC 

PC,PRIBXOR sPRINT THE DATA 
C$MSG 

RAMERR - PRINT RAM AND PACKET DATA 


s03' 


SEQ 059 


I5 


; 
sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 


POINTER TO COMMAND PACKET 


DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ*0 THEN DEFAULT TO 8. 


TS: 
SET T0 0 


RAMERR 
PC ,PRAMPKT 


C$MSG 


RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 


sPRINT RAM/PACKET DATA 


TO DISPLAY RAM/PACKET DATA 


POINTER TO COMMAND PACKET 


S: 


DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 

IF RAMSIZ=0 THEN DEFAULT TO 8. 
HIGH ORDER TEST ADDRESS 

LOW ORDER TEST ADDRESS 


TS: 
SET T0 O 


RAMTADD 


PC ,,PRITADD 
PC ,PRAMPKT 


TSV3 - GLOBAL AREAS MACRO M1113 01-FEB-84 16:55 
RAMERR - PRINT RAM AND PACKET DATA 
1934 ” 
1935 
ce 
Hy 
1938 ; INPUTS: 
1939 : 
pony 3 R4 
1941 3 
1942 IMPLICIT INPUTS: 
Hy 
1944 ; RAMDATA 
1945 ; RAMSIZ 
ine : 
: 
1948 ;IMPLICIT OUTPU 
H 
1950 ; RAMSIZ 
1951 3° 
1952 
1953 015400 BGNMSG 
015400 RAMERR: : 
1954 015400 004737 013666’ JSR 
1955 015404 ENDMSG 
015404 10021: 
015404 104423 TRAP 
19s? 
1958 .SBTTL 
3 
1961 PRINT ROUTINE 
: 
1963 ; INPUTS: 
ise ny 
7 
1967 PIMPLICIT INPUT 
1969 ; RAMDATA 
1970 - RAMSIZ 
1972 : ERRHI 
1973 ; ERRLO 
H 
1975 ;IMPLICIT OUTPU 
1977 : RAMSIZ 
1978 . 
1979 
1980 015406 8 
015406 RAMTADD: : 
1981 015406 004737 010164' JSR 
1982 015412 004737 013666’ SR 
1983 015416 ENDMSG 
015416 10022 
015416 104423 


C$MSG 


sPRINT TEST ADDRESS 
sPRINT RAM/PACKET DATA 


SEQ 060 


J5 


TSV3 - GLOBAL ARFAS MACRO M1113 O1-FEB-84 18:55 SEQ 061 
RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 
1985 
1986 -SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 
1987 3° 
1988 Fy 
sess sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
3 
1991 ; INPUTS: 
1992 ; 
1993 3 Ri RECEIVED DATA 
1994 ; Re EXPECTED DATA 
1995 ; RS CONTROLLER RAM ADDRESS 
1996 :- 
1997 ° 
1998 015420 BGNMSG RAMEXP 
015420 RAME XP: : 
1999 015420 042701 177400 BIC @tC<377>,R1 ;SAVE EXPD RAM DATA BYTE 
2000 015424 042702 177400 BIC @tC<377>,Re s;SAVE EXPD RAM DATA BYTE 
2001 015430 004737 007756’ JSR PC ,PRIRAM sPRINT THE RAM ADDRESS 
2002 015434 004737 007632’ JSR PC ,PRIXOR sPRINT THE DATA 
2003 015440 ENOMSG 
015440 L10023: 
nens 015440 104423 TRAP C$MSG 
2005 .SBTTL TIMEXP - PRINT TIMER A,B AND EXP/REC 
2006 3° 
2007 ; 
2008 sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
494 ;ANO TIMER A,B HEADER MESSAGE 
3 
2011 3; INPUTS: 
2012 3 
2015 : R1 RECEIVED DATA 
2014 : Re EXPECTED DATA 
2015 :- 
2016 
2017 015442 BGNMSG TIMEXP 
015442 TIMEXP:: 
2018 015442 PRINTX @TIMSGO ;PRINT HEADER 
015442 012746 015470’ MOV @TIMSGO, -( SP) 
015446 012746 000001 MOV #1,-CSP) 
015452 010600 MOV SP ,RO 
015454 104415 TRAP CSPNTX 
015456 062706 000004 ADD @4,SP 
2019 015462 004737 007632’ JSR PC ,PRIXOR sPRINT THE DATA 
2020 015466 ENOMSG 
015466 L10024: 
015466 104423 TRAP C$MSG 
2021 
2022 
or 015470 045 116 045 Tpaete -ASCIZ ‘sSNA TIMER A STATUS IS IN BIT 3sNSA TIMER B STATUS IS IN BIT 2’ 
.EV 
2025 
2026 
os dd .SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 
2029 - 


KS 


TSV3 - GLOBAL AREAS pace M 3 -F 84 18:55 
BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS —— 
gosh ;PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
3 

2033 ; INPUTS: 
2034 3 
2035 3 R1 CONTENTS OF TSSR 
2036 3 Re DATA WRITTEN (8 BITS) 
2037 3 
2038 3° 
2039 
2040 015570 BGNMSG BADSSR 

015570 BADSSR: : 
2041 015570 010246 MOV R2,-CSP) :SAVE DATA TRANSFERRED 
2042 015572 042702 177400 BIC #177400,R2 ;GET JUST ONE BYTE 
2043 015576 PRINTB @XFERASC,R2 

015576 010246 MOV R2,-CSP) 

015600 012746 015630’ MOV @XFERASC, -( SP) 

015604 012746 000002 MOV @2,-C(SP) 

015610 010600 MOV SP,RO 

015612 104414 TRAP CSPNTB 

015614 062706 000006 ADD 06 ,SP 
2044 015620 012602 MOV (SP)+, Re sRESTORE R2 
2045 015622 004737 005632’ JSR PC, PRITSSR sDECODE TSSR CONTENTS 
2046 015626 ENOMSG 

015626 L10025: 

015626 104423 TRAP C$MSG 
rot 015630 045 116 045 xXFERASC: -ASCIZ ‘sNSA Date Transferred = #03’ 
2049 
oore -SBTTL GLOBAL SUBROUTINES SECTION 
2052 3° 
2053 3 THE GLOBAL SUBROUTINES SECTION ee THE SUBROUTINES 
2054 3; THAT ARE USED IN MORE THAN ONE T 
2055 R-- 
2056 
see -SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 
2059 se 
2060 ; 
2061 sROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
2062 ;BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
2063 ;THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
— ;DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 

3 

2066 ; INPUTS: 
2067 ; 
2068 ; RS ADDRESS OF FIRST REGISTER 
2069 3 
2070 . ;OUTPUTS: 
2071 : 
2072 : RO CONTENTS OF TSSR, IF ERROR 
2073 ; CARRY SET IF INIT WAS OKAY 
2074 ; CLEAR IF FATAL ERROR 
2075 ; 
2076 ;CALLING SEQUENCE: 
2077 ; 
2078 8 MOV #ADDRESS,RS 


TSV3 - GLOBAL AREA 
- SOFT INI 


SOF INIT 


015732 


012765 
004737 


000000 
016140' 
000002 


176277 
002200 


100000 
174077 


000200 
000040 


177761 
000016 


000002 


3¢ 


TAL TZ SROCHAEAS. OR -FEB-84 18:55 


. SBTTL 


PC, SOF INIT 
CONTINUE 


LS 


oO, aa 
PC ,WAITF 


RO 


TSSR(RS), »RO 
@tC<HIADDR!OFL>,R 


@SSR!NBA,R4 


R4,RO 
S$ 


10$ 
PC 
CHKAMB 


sREPORT FATAL ERROR 


SAVE — 


F 
; DO THE INIT 


; WAIT F 


OR SSR 
s;GET THE TSSR REGISTER 


h _— CONTENTS 


"Ra HAS EXPECTED CONTENTS 
sONLY EXPECTED BITS SET ? 
sBRANCH IF OKAY 
sCLEAR THE CARRY FOR ERROR 


:GO TO EXIT 


sSET THE CARRY BIT 
sRETURN TO CALLER 


- CHECK TSSR FOR AMBIGUITY 


; 
sTHIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
sFOR AMBIGUITY 


; 
3; INPUT: 
Hy 
3 


‘ 
sOUTPUT: 


S$: 


RO 


RO 
CARRY 


SAVREG 
MOV 


CONTENTS OF TSSR 


CONTENTS OF TSSR 


SET - NO AMBIGUITY 
CLR - AMBIGUOUS CONTENTS 


RO,R4 
+1 eRO 


sSAVE THE GENERAL REGISTERS 
sCONTENTS OF TSSR 
3IS BIT 15 SET ? 


ANCH IF YES 


:BR 
@*C<NBA!OFL!SSRtHIADOR> RO 


40 


40$ 
45$ 


@rCTERCLS,R4 
6 


sANY OTHER BITS SET ? 


;MUST BE AN ERROR 

sRETURN WITH es 

:IS READY BIT SET 

sBRANCH IF READY ait IS SET. 
sIS FATAL ERROR BIT SET ? 


sERROR IF NOT 


;CLEAR ALL BUT TERMINATION CODE 
sALL THREE 3 BE SET 
30K IF ALL ARE seT 


sERROR IF NOT 


SEQ 063 


TSV3 - GLOBAL AREAS 


CHKAMB 


- CHECK 


016034 
016035 


016036 
016040 


016072 


016074 
016076 
016104 


016106 
016106 
016106 
016114 
016120 
016126 
016130 


M5 


MACRO M1113 01-FEB-84 18:55 


TSSR FOR AMBIGUITY 


000200 
000001 


012737 


152737 


000040 10$: BIT oBITS,RO :IS FATAL ERROR BIT SET ? 
BEQ 45$ sERROR IF BIT IS SET WITH SSR 
000006 BIT OBIT2!BIT1,RO ;IS THIS A FUNCTION REJECT 
BNE 45$ ;BR, IF TSSR IS OK 
40$: a 508 sAMBIGUOUS CONTENTS 
4S$: SEC sSHOW SUCCESS - NO AMBIGUITY 
50$: RTS PC sRETURN TO CALLER 


-SBTTL ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 


DEFAULT DISPLAY INTERRUPT HANDLERS. 
IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 


; BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 
; 


IOKCKIN=BIT7 ; DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL. 


IOKSTP=BITO ; EXPECT “STOP” INTERRUPT. 


‘ 
s INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 
INTMASK ; -BYTE O 

; INTERRUPT FLAG -- SAYS yy GOT ONE CIF POSITIVE) 
INTFLAG: -BYTE 


;SAVED INTERRUPT VECTOR: 
INTVEC: .WORD 0 

sSAVE CPU PC 

INTCPC: .WORD O 


;SUBROUTINE TO ENABLE INTERRUPTS: 


ENAINT: MOV RO, -(SP) ;SAVE RO 
002202' MOV IVEC,RO ;GET POINTER TO VECTORS 
016106' MOV @INTR,(RO)+ ;SET UP INTERRUPT VECTOR 
000340 - MOV @PRIO7,(RO)+ 
MOV (SP)+,RO ;RESTORE RO 
MOV (SP), -(SP) 
000000 000002 MOV @0,2(SP) ;SET CPU TO LEVEL 0 
;SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
DSBINT: MOV (SP), -(SP) 
000340 000002 Mov oPRIO7,2(SP) 
.SBTTL INTR - INTERRUPT HANDLERS 
aes BGNSRV INTR ;DEFINE INTERRUPT ENTRY 
000001 002216: “" MOV #1, INTRECV ;SET FLAG TO SHOW INTERRUPT RECEIVED 
016035' CLRB ~—s INTFLAG ;CLEAR FLAG TO SAY WE GOT INTERRUPT 
000001 016034' BITB @IOKSTP, , INTMASK sEXPECTING STOP INTERRUPT? 
Y 
000001 016035 BISB  @IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 


;SAVE REGISTERS, MSG BUFFER, ETC. 


SEQ 064 


TSV3 - GLOBAL AREAS 
- INTERRUPT HANDLER 


INTR 


016136 
016136 
016136 
016136 


016140 
016142 
016142 
016144 
016150 
016154 


016156 


016224 


000002 


000000 
013727 
000000 


renee M1113 O1-FEB-84 18:55 


011000 
000002 


000001 
002116' 
177772 
177756 


1$: 
L10026: 


; 

; SUBROUTINE TO 
; 

; INPUTS: 


ENDSRV 


RTI 
. SBTTL 


RS 


‘ 
;OUTPUTS: 


3$: 
4$: 


3° 


RO 
CARRY 


:: BR 
BREAK 


TRAP 
MOV 


NS 


SEQ 065 

WAITF - WAIT FOR SUBSYSTEM READY 
WAIT FOR THE SUBSYSTEM READY FLAG : 
ADDRESS OF FIRST DEVICE REGISTER 
CONTENTS OF LAST TSSR READ 
SET - READY BIT SET 
CLR - TIMEOUT WAITING FOR READY 
1s sNOP WHEN SUPER FIXED 

; DO A SUPVSR BREAK FIRST. 
CHBRK . 

#11000, -(SP) ;25-APRIL-83 REV B - 1100 MSEC TIMER 

TSSRCRS),RO ;READ THE TSSR REGISTER 
RO ;TEST FOR READY BIT SET 
3 ; EXIT ON STOP FLAG. 
1 ; WAIT 100 USEC 
@1.(PC)» 
LSDLY,(PC)+ 
-6(PC) 
~22(PC) 
(SP) ;REDUCE DELAY COUNT 
23 ;RETRY UNTIL TIMER EXPIRES 

; C = 0, CONTROLLER STILL RUNNING... 
4s £2 0R HUNG-UP AFTER 300 MSEC. 

C = 1, CONTROLLER IS STOPPED. 

(SP)« TRESTORE STACK WITHOUT CHANGING CARRY BIT 


CHKTSSR - CHECK TSSR FOR READY 


a 
;THIS ROUTINE WAITS FOR READY IN THE TSSR 
sAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 


3 
; INPUT: 
F 
3 


Hy 
;OUTPUT: 
; 


RS 


ADDRESS OF CSR REGISTERS 


016310 
016312 
0163514 
016320 


016322 
016324 
016330 
016332 
016332 
016336 
016340 
016342 
016344 
016346 


GLOBAL AREAS 
- CHECK TSSR FOR READY 


012737 


MACRO M1113 01-FEB-84 18:55 


016140' 
015734’ 
100000 
074000 


016322' 
000200 


000002 


016332’ 


000004 
000006 


108; 


158: 
208: 


RO 
CARRY 


. SBTTL 


B6 


CONTENTS af TSSR 


SET - OKAY 
CLR - NOT 


PC ,WAITF 
20% 
2 
aC Ro 
@<SCE!BIE! 
158 


208 
PC 
XNXM 


READY AMBIGUOUS, OR SC SET 


sWAIT FOR READY 

sBRANCH IF TIME OUT 

sTSSR AMBIGOUS? 

s6R IF YES 

Te SET? 

RMR INXM> ,RO sANY ERROR BITS SET? 
36R IF NO 

‘Soe FAILURE 


iSeT SUCCESS 
sRETURN TO CALLER 


- CHECK FOR NONEXISTENT MEMORY 


a¢ 
s ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 


s ON RETURN, IF "C” = 1, 


’ 
: 
sCALL: 


(R1) = NEXM ADORESS. 


"C” = 0, ALL ADDRESSES OK. 


MOV ADR1,R1 
MOV ADR2,R2 
JSR PC,NXM 
RE TURN 37 
MOV 023,804 
MOV OPRI04 , 806 
CLR R3 
cic 
TsT (R1) 
CMP R1,R2 
BEQ 3$ 
ADO @2,R1 
BR is 
COM R35 
MOV @3%,(SP) 
RTI 
CLRVEC 04 

Vv 04,RO 
TRAP CsCvec 
TST R3 
BEQ 04 
SEC 
RTS PC 
-SBTTL TSTLOOP - 


EST "C” ANDO PROCEED. 
s SET BUSERR VECTOR. 


sFLAG. 

sCLEAR THE CARRY FOR NO NXM FOUND 
sTEST THE ADDRESS(ES). 

sIF ANY TRAP, CONTINUE AT 23. 
sOTHERWISE, CONTINUE HERE. 
368R IF FINISHED (NO NEXM'S). 
sSET NEXT ADORESS... 

3...ANO CONTINUE. 


sGOT ONE, SET FLAG... 
s...AND DISMISS INTERRUPT... 
t...AND GIVE BACK THE VECTOR. 


s0I0 WE CATCH ONE ?? 
sNO, "C” = O, SKIP NEXT. 
sVES, "C” = 1, (RL) = NEXM ADOR, 


CHECK ITERATION COUNT 


C6 


TSVS - GLOBAL AL AREAS MACRO mLLis 01-FEB-84 18:55 SE 7 
TSTLOOP - CHECK ITERATION COUNT 7_™ 
2293 se 
2294 3 SUBROUTINE TO emacyre TEST ITERATIONS. 
2295 3 EXIT WITH “C” SET IF LOOPS ALiOWED AND LOOP COUNT NON-ZERO. 
ooot ; LOOP COUNTER re Set BY “BEGIN. TEST” MACRO, 
a 
2298 : CALL: LOOPTO ARG 
2299 3 
2300 016350 TSTLOOP:; 
2301 016350 005737 002162’ TsT NOITS 3 ITERATIONS INHIBITED? 
2302 016354 001006 BNE i$ s YES. 
2303 016356 005737 002176' TST Qve + NO. 
2304 016362 100403 BMI 18 sLOOPS DISALLOWED IN QUICK Pass. 
2305 016364 005337 002210' DEC LOOPCNT 3 BUMP LOOP COUNTER. 
2306 016370 001002 BNE 2s 
2307 016372 000241 18: cic sLOOP DISALLOWED, OR DONE. 
2308 016374 000401 BR 3% 
2309 016376 000261 23: SEC sLOOP ENABLED. 
230 016400 000207 38; RTS PC 
e312 .SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
°° 
2314 3 PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
2315 : INCREMENT “TESTK” TO INDICATE THE NUMBER OF TESTS 
2316 : IN THE CURRENT RUN SEQUENCE 
arte 3 CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
t 
2319 3; INPUT: 
2320 3 
232i 3 RO POINTER TO TEST ID ASCIZ STRING 
* 
2323 sOUTPUT: 
2324 3 
tr 3 RS ADDRESS OF FIRST DEVICE REGISTER 
3 
344 s IMPLICIT OUTPUTS: 
. 
44 ; TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
: 
zoot sSIDE EFFECTS: 
s 
2333 3 INTERRUPT LEVEL Ts RASIED TO LEVEL OF 
2334 3 THE DEVICE UNDER TEST 
2335 : 
2336 oi 
2337 
2338 016402 TSTSETUP: : 
2339 016402 010046 MOV RO, -( SP) sSAVE THE TEST IC MESSAGE 
2340 016404 005037 003146’ CLR SIFLAG : CLEAR “SOFT INIT” FLAG 
2341 016410 005037 016650’ CLR ERRK 3 CLEAR LOCAL ERROR COUNTER. 
2342 016414 005037 005600’ CLR EXTA + CLEAR ERROR EXTENSION FLAG. 
2343 016420 105037 016034’ CLRB INTMASK 3 CLEAR INTERRUPT MASK (CHECK ERROR) 
2344 016424 013700 002174’ MOV = -— UNITN, RO 1 GET THE UNIT NUMBER 
2345 016430 006300 ASL RO ‘ AND MAKE IT A WORD OFFSET. 
2346 016432 005737 003106’ TST NODE V ; OID STARTUP FIND THE DEVICE? 
2347 016436 001430 BEQ 43 ; BR IF YES 
2348 016440 100010 BPL ; BR IF NOT IDOLE 


3$ 
2349 016442 052760 160000 003170' BIS #160000 ,ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 


TSV3 - GLOBAL AREAS MACRO M1113 01-FEB-84 18:55 
TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


2350 016450 ERROF 
016450 104455 TRAP 
016452 WORD 
016454 003730' .» WORD 
016456 005544’ * ,WORD 

2351 016460 000407 BR 

2352 016462 052760 160001 003170' 33%: BIS 

2353 016470 ERROF 
016470 104455 TRAP 
016472 000002 . WORD 
016474 004325' . WORD 
016476 000000 . WORD 

2354 016500 012737 177777 003104’ 23: MOV 

2355 016506 o00uU 
016506 013700 002174' MOV 
016512 104451 TRAP 

2356 016514 DOCLN 
016514 104444 TRAP 

2357 016516 000423 BR 

2358 

2359 016520 4$; RFLAGS 
016520 104421 TRAP 

2360 016522 032700 001000 BIT 

2361 016526 001412 BEQ 

2362 016530 011600 MOV 

2363 016532 PRINTF 
016532 010046 MOV 
016534 012746 016576’ MOV 
016540 012746 000002 MOV 
016544 010600 MOV 
016546 104417 TRAP 
016550 062706 000006 ADD 

2364 016554 005237 002206’ 18 INC 

2365 016560 SETPRI 
016560 013700 002204' Vv 
016564 104441 TRAP 

2366 016566 005726 58: TST 

2367 016570 013705 002200' MOV 

2368 016574 000207 RTS 

2369 016576 045 123 045 TNAM: -ASCIZ 

2370 EVEN 

2371 

2372 SBTTL 

2373 3 

2374 3 

2375 3 

2376 3 

2377 016612 TSTEND: RFLAGS 
016612 104421 TRAP 

2378 016614 030027 020000 BIT 

2379 016620 001412 BEQ 

2380 016622 PRINTF 
016622 013746 016650’ MOV 
016626 012746 016652’ MOV 
016632 012746 2 MOV 
016636 010600 MOV 
016640 104417 TRAP 


D6 


1,NXR,NXRERR : NO DEVICE HERE -- PRINT IT 
CSEROF 
NXR 
NXRERR 
23 
0160001, ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
2,NOINIT ; DEVICE NOT IDLE 
CHERDF 
NOINIT 
®-1,DUFLG ; OROP THE UNIT 
UNITN 
UNITN RO 
; ABORT THE PASS 
CSOCLN 
RO ; GET THE OPERATOR FLAGS. 
CSRFLA 
@PNT,RO ; PRINT THE TEST NUMBERS? 
1$% ; BR IF NO 
(SP),RO ;GET THE ID MESSAGE 
eTNAH RO ;OISPLAY THE TEST ID 
@TNAM, -(SP) 
2, -¢ 
SP RO 
CePNTF 
TSTCNT s BUMP TEST COUNTER. 
IPRI ;PRIORITY THAT OF DEVICE 
IPRI,RO 
CsSPRI 
(SP )> 3sFIX UP THE STACK 
CSRADOR,RS : ADDRESS OF TSV REGISTERS ON UNIBUS 


‘SSSTSA Test’ 


TSTEND - PRINT ERRORS RECEIVED 


AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
IF NORMAL ERROR REPORTING IS DISABLED (FLA: IER). 


RO 
CSRFLA 
RO, @IER 


is 

@€ SUM, ERRK 
ERRK, -( SP) 
@E SUM, -( SP) 
@2, -(SP) 

SP ,RO 
CSPNTF 


+ BR IF “IER” NOT SET. 
s PRINT ERROR COUNT. 


SEQ 068 


TSV3 - GLOBAL AREAS 


TSTENOD 


- PRINT 


016642 
016646 


016650 
016652 
016671 


016736 
016742 
016744 
016750 
016752 
016756 
016760 
016764 
016766 
016770 
016772 


016774 


017072 


017074 
017076 


062706 
000207 


045 
105 


001013 
012737 


104455 
000004 
016671’ 
000000 
013700 
104451 
104444 


012600 
000207 


010046 


E6 


MACRO M1113 O1-FEB-84 18:55 
ERRORS RECEIVED 


SEQ 069 


000006 ADD @6,SP 
1$; RTS PC 
ERRK: 0O + LOCAL ERROR COUNT. 
101 040 ESUM: -ASCIZ /#A SOSA ERRORS/ 
122 122 EMAXDU: oy ZERROR LIMIT REACHED -- DROPPING UNIT/ 
-SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 
3¢ 
; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 
3 
016650' INCERK: INC ERRK s INCREMENT LOCAL ERROR COUNT 
MOV RO, -(SP) s SAVE RO 
002174' MOV UNITN,RO s GET UNIT NUMBER, 
ASL RO ’ . AND MAKE IT A WORD OFFSET 
003170' ADD @ERTABL ,RO s RO GETS ADDRESS OF ERROR TABLE ENTRY. 
INC CRO) s INCREMENT THE DEVICE ERROR COUNT 
007777 BIT @7777,CRO) s OID WE OVERFLOW THE FIELD? 
BNE 1$ s BR IF NO. 
DEC (RO) s YES -- BACK IT UP TO 7777. 
18: MOV (SP)+,RO s RESTORE RO 
RTS PC s RETURN TO CALLER. 
CKEMAX: MOV RO, -(SP) 3 SAVE RO 
002174’ MOV UNITN,RO s GET UNIT NUMBER 
ASL RO s ... AND MAKE IT A WORD OFFSET 
003170' MOV ERTABL(RO),RO ; GET ERROR TABLE ENTRY 
170000 BIC #170000 ,RO s EXTRACT ERROR COUNT FIELD 
002166' ore th . GERRMAX 3 pS on LIMIT EXCEEDED FOR THIS UNIT? 
3 
016650’ 002164’ CMP ERRK ,LERRMAX s IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
BLO es s BR IF NO 
1%: RFLAGS RO s GET OPERATOR FLAGS 
TRAP CSRFLA 
000040 BIT @IDU,RO s IS DROPPING INHIBITED? 
BNE es ; BR IF YES. 
177777 003104’ MOV -1,0UFLG s NO -- DROP THE UNIT 
ERROF  4,EMAXDU 
TRAP CSEROF 
-WORD 4 
-WORD EMAXDU 
-WORD 0 
od00uU UNITN 
002174' MOV UNITN,RO 
TRAP Cs000uU 
DOCLN 
TRAP CsOCLN 
2s: MOV (SP )+,RO s+ RESTORE RO 
RTS PC s RETURN TO CALLER 
SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 
id 
s CHECK IF UNIT SHOULD BE DROPPED 
3 - 
CKDROP;: MOV RO, -( SP) 
FORCERROR 1$,NOTSSR 


TSV3_ - GLOBAL AREAS 
- CHECK IF UNIT 


CKDROP 
2429 


2430 
2431 
2432 
2433 
2434 


2435 


2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 


017106 
017106 
017110 
017114 
017116 
017120 
017126 
017126 
017132 
017134 
017134 
017136 
017140 


017142 
017142 
017146 


017150 
017154 
017156 
017164 


017166 
017172 
017174 
017176 
017200 
017206 


012737 


013700 
104451 


104444 
012600 
000207 


004737 
000207 


005737 
001403 
012737 
000207 


005737 
001405 
000240 
000240 
012737 
000207 


Ss E DROP 


000040 


177777 003104' 


002174' 


015664 


003124' 
000001 177572 


003124’ 


000000 177572 


F6 
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) 8 BED 7 


RFLAGS RO 
TRAP 


CSRFLA 
BIT @IDU,RO 
BNE © 


d00DU UNITN 
MOV UNITN,RO 
TRAP C80 
DOCLN sABORT THE PASS 
TRAP CsOCLN 
1$: MOV (SP)+,RO 
RTS PC 


-SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
i 
; SUBROUTINE - DETERMINE CONFIGURATION OF TSUOS SYSTEM. 


: 
CONFIG: 
JSR sr 


RTS 
-SBTTL KTON,KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 
é 
s SUBROUTINE - ENABLE MEM MGT. 
3 
KTON: TST KTFLG s GOT KT? 
BEQ 1$ s NO. 
MOV #1,SRO s YES. ENABLE KT11. 
1%; RTS PC 


j 
3; SUBROUTINE - DISABLE MEM MGT. 


3 
KTOFF: TST KTFLG 3; GOT KT11? 

BEQ 1$ 3; NO, 

NOP 

NOP 

MOV #0, SRO 3; DISABLE KT. 
1$: RTS PC 


-SBTTL SETMAP - SETUP PAR6 MAPPING 
3° 
3 
sTHIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 


sAN 22 BIT ADORESS, THE OFFSET INTO THE PAGE 
sIS RETURNED BIASED TO PAR6. 


: 

3: INPUTS: 

a 

F RO HIGH ORDER ADDRESS BITS 
3 R1 LOW ORDER ADDRESS BITS 


° 
sOUTPUTS: 


TSV3_ - GLOBAL- 


SE TMAP 


017210 
017210 
017214 
017220 
017222 


017312 


017314 


AREAS MACRO M1113 01-FEB-84 18:55 
- SETUP PAR6 MAPPING 


G6 


SEQ 071 


t 
3 RO OFFSET INTO BLOCK WITH PARG6 BIAS CI.E. THE ADDRESS) 
F CARRY SET IF SUCCESS 
3 CLR IF ERROR 
i- 
SETMAP: 
SAVREG sSAVE R1-R4 UNTIL NEXT RETURN 
005737 003124' TST KTFLG sSYSTEM HAVE ABOVE 28K? 
001433 BEQ 10% ;6R IF NO 
010102 er R1,R2 sSAVE LOW ORDER BITS 
ASR RO sCONVERT WORD ADDRESS TO 32W BLOCKS 
om R1 sMAKE IT DOUBLE PRECISION 
042701 000177 BIC #177,R1 sALINE FOR LOWER 4K BOUNDARY 
020137 003124' CMP R1,KTFLG sHIGHER THAN EXISTING MEMORY? 
103011 BHIS 10$ 3B8R IF YES 
010137 172354 MOV R1, 80K IPAR6 sSETUP MAPPING REGISTER PAR6 
042702 160000 BIC #160000 ,R2 sSETUP DISPLACEMENT IN PAGE 
062702 140000 ADD #140000 ,R2 sADD IN PAR6 BIAS 
010200 MOV R2,RO0 sRETURN IN RO 
000261 SEC 3SET SUCCESS 
000401 BR 15$ 3 
000241 10$ CLC 3;SET FAILURE 
000207 15$ RTS PC sRETURN 
-SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
3¢ 
; FILL MEMORY WITH A BACKGROUND PATTERN 
é 
3; INPUTS: 
; 
3 RO = BACKGROUND PATTERN 
3 FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
; KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28K. 
3 
; OUTPUTS: 
Hy 
3 NONE 
ge 
. 
FILLMEM: 
SAVREG 3sSAVE R1-RS UNTIL NEXT RETURN 
004737 017166’ JSR PC ,.KTOFF sOISABLE KT. 
010003 MOV RO,R3 sCOPY TEST PATTERN 
013701 003116' MOV FREE ,R1 3GET FIRST FREE LOCATION 
013702 003120’ MOV FRESIZ,R2 sSIZE OF FREE SPACE BELOW 28K. 
010321 10$: MOV R3,CR1)> sSTORE A BACKGROUND WORD 
005302 DEC R2 sDONE ALL MEMORY IN FREE SPACE? 
003375 BGT 10$ 38R IF NO 
005737 003124' TST KTFLG 3 GOT KT? 
001502 BEQ 55$ : NO. GET OUT. 
004737 017150’ JSR PC,KTON : YES. ENABLE KT. 
00 CLR sHIGH ORDER ADDRESS START 
013701 003144' _ ‘ia, 3GET >28K START ADDRESS (CIN 32W BLOCKS) 


TSV3 - GLOBAL AREAS 


FILLMEM 


MACRO M1113 01-FEB-84 18:55 


H6 


sCLEAR C BIT 
sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sSETUP PAR6 MAPPING REGISTER 

sSTORE TEST PATTERN IN >28K ADDRESS 
sEND OF PAR6 MAPPING AREA? 

s6R IF NO 

:BACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K, 

sGET VALUE FROM MEMORY SIZER 

sONLY 18 oak PASS 


ES 
sPROCESSOR TYPE A 
sNO KEEP GOING 
sGET SRO CONTENTS 
sCLEAR ALL BUT PAGE NUMBER 


sREACHED 18 BITS? 


;YES 
iNO KEEP GOING 
sSET MMU RELOCATION 
sKEEP GOING ON ETC. 
: OISABLE KT. 


- COMPARE MEMORY TO BACKGROUND PATTERN 


* FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
* SET TO HIGHEST MEMORY LOCATION IF > 28K, 


sSAVE R1-RS UNTIL NEXT RETURN 
sCOPY TEST PATTERN 
sOISABLE KT. 


- FILL MEMORY WITH BACKGROUND PATTERN 
CLC 
ROL R1 
ROL RO 
.ENOR 
017430 004737 017210’ JSR PC, SETMAP 
017434 010320 30$: MOV R3,CRO)>+ 
017436 7 160000 CMP RO, #160000 
017442 103774 BLO $ 
017444 162700 020000 SUB #20000 ,RO 
017450 062737 000200 172354 ADD 200 , BOK IPARG 
017456 013705 003124’ MOV KTFLG,RS 
017462 042705 170000 BIC #170000,R5 
017466 023705 172354 CMP BOK IPARG ,RS 
017472 001427 BEQ $ 
017474 005737 003136' TST T23A 
017500 001407 BEQ 35$ 
017502 013704 177572 MOV SRO,R4 
017506 042704 177761 BIC 0177761, R4 
017512 022704 000016 CMP #16,R4 
017516 001415 BEQ 508% 
017520 005737 003140’ 358: TST T238 
017524 001410 BEQ 5$ 
017526 023727 172354 007600 CMP OK IPARG , 27600 
017534 103001 BHIS O$ 
017536 000403 BR 453 
017540 012737 000020 172516 403: MOV @20,SR3 
017546 000137 017434’ 45$: JMP $ 
017552 004737 017166’ 50$: JSR PC .KTOFF 
017556 000207 558: RTS 
-SBTTL CMPMEM 
3¢ 
. COMPARE MEMORY WITH A BACKGROUND PATTERN 
: INPUTS: 
; 
: RO = BACKGROUND PATTERN 
: FREE 
: KTFLG 
8 
3; OUTPUTS: 
8 
3 CARRY - SET IF NO ERROR 
3 CARRY - CLR IF ERROR 
é 
3; IMPLICIT OuTPUTS: 
3 
3 ERRHI - ERROR HIGH ADDRESS 
3 ERRLO - ERROR LOW ADDRESS 
3 EXPO - EXPECTED DATA 
3 RECV - RECEIVED DATA 
3° 
017560 CMPMEM: 
017560 SAVREG 
017564 010003 MOV RO,R3 
017566 004737 017166’ JSR PC ,KTOFF 
017572 013701 003116’ MOV FREE ,R1 


iGET FIRST FREE LOCATION 


SEQ 072 


TSV3_- GLOBAL AREAS 
CMPMEM 


017576 
te) 


013702 


MACRO M1113 
- COMPARE MEMORY TO BACKGROUND 


003120' 


002232" 
002230’ 
002224' 
002226' 


003124' 
017150' 
003144’ 


000177 


017210' 


000002 
160000 


020000 
000200 
172354 


017166’ 


017166’ 


172354 
003124' 


Oricon 18:55 


10$: CMP 


158: TST 


32%: ADD 


-SBTTL REGSAV 


3¢ 
; 
sROUTINE TO 


sSAVE R1 THROUGH RS ON THE STACK 


16 


FRESIZ,R2 
= 


SEK TPARG, eKTFLG 
PC ,KTOFF 


60% 
PC .KTOFF 
PC 


; 
sCALLING SEQUENCE : 


sSIZE OF FREE SPACE BELOW 28K. 
sFREE SPACE LOCATION EQUAL TO EXPD? 


s6R IF YES 


sSAVE ADDRESS IN ERROR 

sNO HIGH ADORESS 

sSAVE EXPD FOR ERROR REPORT 
sSAVE RECV FOR ERROR REPORT 


‘ 
sPOINT TO NEXT ADDRESS 
sDONE ALL MEMORY IN FREE SPACE? 


:6R IF NO 
3 GOT KT? 


s NO. GET OUT. 


s YES. ENABLE KT. 
sHIGH ORDER ADDRESS START 
sGET >26K START ADDRESS (CIN 32W BLOCK" 5 


sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sALINE 4K BOUNDARY 

sSAVE HIGH ORDER 

sSAVE LOW ORDER 

sSETUP PAR6 MAPPING REGISTER 

sCOPY ADDRESS BIASED TO PARG6 

sRESTORE LOW ORDER IN NON PAR6 FORMAT 
sRESTORE HIGH ORDER IN NON PARG6 FORMAT 
sABOVE 28K LOCATION EQUAL EXxPD? 


3;8R IF YES 


sSAVE HIGH ORDER IN ERROR 
sSAVE LOW ORDER IN ERROR 
sSAVE EXPD FOR ERROR REPORT 
sSAVE RECV FOR ERROR REPORT 


: 

sUPDATE NON PAR6 ADDRESS 
sMAKE IT DOUBLE PRECISION ADD 
sUPDATE PAR FORMAT ADDRESS 
sEND OF PAR6 MAPPING AREA? 


36R IF 


sBACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K. 

E MORY ? 

sane FAILURE 

; TURN OFF MEMORY MAPPING 
3SET SUCCESS 


- SAVE R1-RS ON STACK 


SEQ 073 


TSV3 - GLOBAL AREAS 


REGSAV 


J6 


MACRO M1113 01-FEB-84 18:55 
- SAVE R1-RS ON STACK 


JSR RS ,REGSAV 
; 


sTHIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
sTHE CALLING ROUTINE, AT THE END OF THE CALLING ROUTINE, 
SIstane RETURNS CONTROL TO THIS ROUTINE TO RESTORE 

: . 


3 

sTHIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
sCALLED VIA A JSR PC INSTRUCTION 

; 

3° 


REGSAV: 

Vv R4,-(SP) 
MOV R3,-CSP) 
MOV R2,-C(SP) 
MOV R1,-CSP) 
MOV RS, -CSP) 
MOV 10.(SP),RS 
JSR PC, @(SP)-+ 
MOV CSP)+,R1 


MOV (SP )+,R4 
MOV (SP)+,RS 
RTS PC 


-SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
3° 


‘ 
sROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 


; 
s INPUTS: 
; 


3 NONE . 
3 
sOUTPUTS: 
3 
3 RO OCTAL NUMBER FROM THE OPERATOR 
3 
sCALLING SEQUENCE: 
3 
3 JSR PC,GETPAT 
3 
g° 
GETPAT:: 
SAVREG sSAVE THE GENERAL REGISTERS 
1$: GMANID DATASC,PATDAT,O,377,0,377,N0 
TRAP CSGMAN 
BR 10000$ 
WORD PATDAT 
WORD TSCODE 
WORD DATASC 


. WORD 
-WORD TSLOLIM 


SEQ 074 


TSV3 - GLOBAL AREAS 


GETPAT 


2739 
2740 


2741 


- GET 8 


020130 
020132 


000377 


103367 
013700 
000207 


105 


000000 
177777 
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BIT PATTERN FROM OPERATOR 


020130' 


116 


020342’ 


124 


K6 


SEQ 075 


-WORD TSHILIM 
10000$ : 
ss 1$ sRETRY IF ERROR 
MOV PATDAT ,RO sDATA PATTERN FROM OPERATOR 
RTS PC sRETURN TO CALLER 


z¢ 
;LOCAL DATA AREA 


PATDAT: .WORD 

DATASC: .ASCIZ 
- EVEN 
. SBTTL 


3¢ 


1) ; TEMPORARY STORAGE FOR DATA 
‘ENTER DATA PATTERN’ 


GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 


; 
sROUTINE TO ISSUE A MENU AND GET 
; THE OPERATOR'S RESPONSE. 


8 
s INPUTS: 
3 
; RO ADDRESS OF ASCIZ STRING OF MENU 
: R1 MAXIMUM ALLOWABLE OPERATOR RESPONSE 
3 
;OUTPUTS: 
° 
; RO NUMBER OF THE OPERATOR'S SELECTION 
; 
g- 
GETSEL:: 
SAVREG ;SAVE GENERAL REGISTERS 
MOV RO,R2 ;SAVE THE MENU ADDRESS 
1$ MOV R2,R35 sSTART OF MENU STRING 
2s TST CR3) sEND OF ASCII ? 
BEQ 3$ sBRANCH IF ALL LINES DISPLAYED 
PRINTF @SELASC,(R3)> sDISPLAY THE MENU 
MOV (R3)+,-CSP) 
MOV @SELASC, -( SP) 
MOV @2,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
BR es 
3$: GMANID MENASC ,MENRES,D,-1,0,-1,NO 
TRAP C$GMAN 
BR 10001$% 
-WORD MENRES 
. WORD TSCODE 
-WORD MENASC 
. WORD -1 
-WORD TSLOLIM 
. WORD TSHILIM 
100018: 
BNCOMPLE TE 1$ sRETRY IF ERROR 


TSV3_- GLOBAL AREAS 


GETSEL 


2742 
2743 
2744 
2745 


- ISSUE 


020376 


101411 


012746 
012746 


104450 
103411 


012746 
012746 


020376' 


020274' 
000001 


156 


020434' 


116 


5$: 
045 MENERR: 
045 SELASC: 
164 MENASC: 


MENRES : 


3¢ 


POT DEAN on heSBBaBe 12°55 


MENU AND 


L6 


SEQ 076 
i$ 
MENRES ,RO sGET THE OPERATOR'S REPLY 
RO,R1 sCOMPARE TO MAXIMUM ALLOWED 
S$ sBRANCH IF OK 
@MENERR sDISPLAY ERROR MESSAGE 
@MENERR , -C SP) 
@1,-(SP) 
SP ,RO 
CSPNTF 
@4,SP 
1$ sRETRY 
PC sRETURN TO CALLER 


ont #ae Menu Selection Too Large ee’ 
‘Enter Menu Selection: ' 


-WORD O 


CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 


; 
sROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 


; 

3: INPUT: 
; 

o 

+ 
sOUTPUT: 
; 


NONE . 


CARRY 


; 
;SIDE EFFECTS: 


A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 


-ASCIZ 
.even 


°o MANUAL INTERVENTION NOT ALLOWED 
1 MANUAL INTERVENTION IS OK 


‘gNSA #¢4 Manual Intervention not Allowed 


ALLOWED. 

SAVREG ;SAVE THE REGISTERS 

MANUAL 3;SEE IF MANUAL INTERVENTION OK 
TRAP CSMANI 

+ ani Pi ;BRANCH IF ALLOWED 

PRINTF #NOMAN sPRINT THE WARNING MESSAGE 
MOV @NOMAN, -( SP) 

MOV #1,-(SP) 

MOV SP ,RO 

TRAP CSPNTF 

ADD 04 ,SP 

cLC ;CLEAR CARRY FOR ERROR 

RTS PC ;RETURN 


- Test Aborted see’ 


TSv3 - —— AREAS mano M 
CHKMAN - CHECK MANUAL INTERVEN 
2786 
2787 
2788 
2789 
2790 
2791 020530 
020530 104431 
2792 020532 010037 003116’ 
2793 020536 062737 000002 
2794 020544 011037 003120’ 
2795 020550 162737 000004 
2796 020556 013702 002012’ 
2797 020562 162737 000007 
2798 020570 005302 
2799 020572 001373 
2800 020574 013700 003116’ 
2801 020600 063700 003120’ 
2802 020604 162700 000002 
2803 020610 010037 003122’ 
2804 020614 000207 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 020616 
2814 020616 005037 003124’ 
2815 020622 005037 003126’ 
2816 020626 023727 002120 
2817 020634 101453 
2818 020636 023727 002120' 
2819 020644 101447 
2820 020646 013700 000004 
2621 020652 012737 020744' 
2822 020660 005737 177572 
2823 020664 000240 
2824 020666 013737 002120' 
2825 020674 042737 000177 
2826 020702 010037 000004 
2827 020706 
2828 020710 012701 172340 
2829 020714 012761 077406 
2830 020722 010021 
2831 020724 062700 000200 
2832 020730 020027 002000 
2833 020734 001367 
2834 020736 012741 177600 
2835 020742 000410 
2836 
2837 020744 012716 020760' 
2838 020750 000002 
2839 
2840 
2841 020752 012716 021006’ 


HHBR LPRACERO* 10:95 


-SBTTL ENVIRN 


M6 


SEQ 077 


- SETUP FREE DIAGNOSTIC SPACE 


a 
: SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 


ENVIRN: — RO 


CS$MEM 
— RO, FREE 3; GET 1ST FREE ADDRESS... 
003116' ADD #2 ,FREE 
MOV CRO), FRESIZ .-AND WORD COUNT. 
003120' SUB #4 ,FRESIZ 
MOV LS$UNIT, R2 ; GET NUMBER OF UNITS 
003120' 10$: SUB o7, FRESIZ 3 TAKE AWAY 7 WORDS PER UNIT 
DEC Re 
BNE 10$ 
MOV FREE ,RO ;GET FIRST FREE ADDRESS 
ADD hog Se RO sPOINT TO LAST FREE ADDRESS 
SUB #2,R sBACKUP 1 WORD 
MOV RO, FREEMI s;STORE LAST FREE ADDRESS 
40$: RTS PC ;RETURN 
-SBTTL KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
3¢ 
3 
sROUTINE TO INIT KT-11 
3 
3° 
KTINIT: ‘ 
CLR KTFLG 3; INIT >28K MEMORY FLAG 
CLR K TENABLE s INIT TEST >28K FLAG 
001577 ye pees Auer 3 + 4 ENOUGH MEMORY ( >28K)? 
L 3 ‘ 
001777 CMP LSHIME ,01777 ; GOT ENOUGH MEMORY (>32K)? 
BLOS 9$ ; NO. 
MOV QPERRVEC ,RO : SAVE OLD ERR VEC PTR. 
000004 MOV 2% ,Q@@ERRVEC ; SET ERR VEC PTR. 
TST @@SRO 3; GOT KT11? 
NOP ; (TRAP IF NO). 
003124' MOV LSHIME ,KTFLG ; YES. SET KT FLAG. 
003124' BIC #177,KTFLG Fy 
MOV RO, @GERRVEC 3; RESTORE a — bee: PTR. 
CLR RO 3 RO = AR DAT ; 
MOV @KIPARO,R1 ; RL = KI REGS “PTR. 
177740 1$: MOV 977406,-40(R1) ; SET DESCRIPTOR REG. 
MOV RO,C(R1)>+ 3; SET KIPAR REG. 
ADD #200 ,RO : BUMP AR DATA BY "4K", 
CMP RO, #2000 3 AT "I/0"? 
BNE 1$ ; NO. 
MOV #177600, -(R1) ; YES. SET KTPAR7 FOR I/O. 
BR 9$ 
2s: MOV #6$,(SP) ; SET UP RETURN 
RTI ; RTI TO NEXT LOCATION 
3$; MOV #10$,(SP) ; SET UP RETURN 


TSV3_- GLOBAL AREAS 
- SETUP KT11 MEMORY 


KTINIT 


020756 
020760 


021012 


021014 


021014 
021020 
021022 
021030 
021036 
021044 
021052 
021056 
021062 


021064 


021070 
021072 
021074 
021076 


021100 
021102 
021104 


000002 
010037 


013700 
012737 
042737 
000240 
010037 
000207 


MACRO M 


000004 


000004 
020752" 
000001 


000004 


002220' 


100206 
021100' 
000006 


100010 
021070' 
010552" 


Fen? aCEBatnd®*>5 


000004 
170200 


021070' 
021072' 
021076' 
021100° 


6$: 
9$: 


10$: 


; INPUTS: 


; 
;OUTPUTS: 


INVERT: : 


3 


RTI 


N6 


SEQ 078 , 


; RTI TO NEXT LOCATION 
RO, @MERRVEC ; RESTORE OLD ERR VEC PTR. 
BOERRVEC ,RO s SAVE OLD ERR VEC PTR. 
03% , BOERRVEC s SET ERR VEC PTR. 
@BITO, BOMMRO sBE SURE UNIBUS MAP IS OFF 


ee ; RESET VECTOR BACK TO ERROR POINTER 


SUBROUTINE TO SET EXTENDED FEATURES SWITCH 
Requires that SOFINIT and WRICHR have been done previous to call. 


RS 


CURRENT UNIT NUMBER 


The Extended Features Switch is set. 


EXTFEA ; IS SWITCH SET? 
1$ ; YES,EXIT STAGE RIGHT!(or the next one outa town! ) 
#100206 , CMOPKT ; WRT SUB-SYS MEM CMD 
O@WSMBK , CMDPKT +2 ; MSG BUF ADDR 
96, CMDPKT +6 ; BYTE COUNT 
#100010, WSMBK ; INVERT THE SWITCH 
@CMDPKT .R4 ; SET CMDPKT INTO R4 
PC,WRICHR ; 00 IT 
; RETURN 
PACKET. 


10-<.-TSV2E7> 


31ST WORD IS TSOS COMMAND. 

s2ND WORD IS THE BUFFER LOW ADDRESS. 
33RD WORD IS THE BUFFER HIGH ADDRESS. 
34TH WORD IS THE BYTE/RECORD/FILE COUNT. 


WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 


31ST WORD:: SEL O 
s2ND WORD:: SEL 2 
;3RD WORD:: SEL 4 


TSV3_- GLOBAL AREAS 


KTINIT 


MACRO M1113 01-FEB-84 18:55 
- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


003130' 
003132’ 
003134' 
170000 

003140' 
002120' 
021302’ 
003136' 
002120° 
002120’ 
021302’ 
002120' 
021302' 
000077 

177774 

003130° 


002120' 


007777 


005777 


003777 


001577 


003134' 
003134' 


18%; 
2s: 


4%: 


138: 


148: 


158: 


B7 


SEQ 979 


SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 


The NXMFLG ie set if we can test. 
The NXMLO and NXMHI addresses ere setup. 


#170000, SHIME 


14% 
T238 


is 

| itt 
$ 

PC .NXMTST 

13% 

T23A 

34 

LSHIME 05777 

14% 5 

tatiana 
$ 

PC .NXMTST 

138 

LSHIME 01577 

14% 

PC .NXMTST 


077 ,NXMHI 
0177774 ,NXMHI 


sSAVE THE + vee 
sCLEAR THE FLAG 

sCLEAR THE TEST ADDRESS LO 

sCLEAR THE TEST ADDRESS HI 

sCHECK FOR MORE THAN 16 BITS INDICATED 
sFROM THE yaad to a 

s6R, IF MAP BOX ETC. 

11S IT A PROCESSOR TYPE 8? 


sNO 
3 — THAN 126K 


ADORESS 
sSET THE FLAG AND EXIT 
sIS IT A PROCESSOR TYPE A? 


sNO 

sGREATER THAN 96K 

sYES,23A/238 WITH 128K MEMORY 
sGREATER THAN 64K BUT LESS THAN 92K? 


sGREATER THAN 24K BUT LESS THAN 64K? 
sNO, TELL THEM AND EXIT WITH FLAG CLEAR 
sSETUP THE ADORESS 

sFOOL THE 11702 € 11703 

sANY MORE THAN 18 BITS SET? 

s6R, IF MORE THAN 18 BITS SET 

sSET THE FLAG 

sEXIT 

sNOP FOR PRINTOUT 

sTELL THEM € EXIT eeeNO PRINTeeose 


RETURN 


SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
‘ 
sOUTPUTS: NXMLO,NXMHI 


sSETUP WITH NXM ADDRESS 


TSV3 - GLOBAL AREAS 


KTINIT 
2953 


- SETUP 


021302 
021306 
021312 


2956 021316 


021334 


021364 
021370 
021374 


021376 


KTil 
013701 


010157 
000012 


042702 
010237 
000207 


MACRO M1113 O1-FEB-84 16:55 


177700 
003134’ 


MEMORY MANAGEMENT REGISTERS 


NXMTST: MOV 
ADD 
BIC 


ENOMOD 


LSHIME ,R1 
®@ oR1 
@177,R1 
R1,R2 

6 

Ri 
R1,NXMLO 
10. 

Re 
@177700,R2 


R2,NXMHI 
PC 


C7 


sMAKE IT I70 BLOCK OR OTHER NXM 


GET TOP OF MEMORY 


RESAVE RESULTS 

PUT IN PLACE FOR XFER 
SAVE TEST ADORESS LOW 
PUT IN PLACE FOR XFER 


DON'T WANT ILA! 
SAVE TEST ADDRESS HIGH 
RE TURN 


sRET 


SEQ 080 


D7 


Cittrr "TSSERAMRAYT AERSAP"annBERERr MARE BAshE® “08 18:55 


021376 
021376 


021376 
021376 
021376 
021406 


177777 


103052 


177777) «177777 


006166’ 002172' 


002174’ 002012’ 
003104' 
002174' 
003170' 
040000 003170’ 


000035 


-TITLE TSV4 - MISCELLANEOUS SECTIONS 
BGNMOD TSV4 

TSV4:: 
.SBTTL PROTECTION TABLE 
GNPROT 

L$PROT:: 
. WORD 
ENOPROT 
-SBTTL INITIALIZE SECTION 


“he “ly +i. <3 sNO DEVICE PROTECTION REQUIRED. 


THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
- THE BEGINNING OF EACH PASS. 


VIF “START” OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 
sIF “CONTINUE”, NOTHING IS REQUIRED. 

3 

eh 


3° 
s INSERT TEMPORARY JUMP TO ODT 
3 = 


BGNINIT 
LSINIT:: 
408; CLR EXTFEA 
CLR NXMFLG 
MOV @EPRT1,EPRTSW sSET UP PRIMARY MESSAGE FOR REPLACEMENT 
CLR SIFLAG sCLEAR “SOFT INIT” FLAG 
CLR K TENABLE sCLEAR TEST ABOVE 28K FLAG 
CLR RAMSIZ sCLEAR RAM SIZE FOR RAMERR ROUTINE 


READEF @€F .CONTINUE 
4 oer. aetna ates 


CSRE 
BNCOMPLETE is” 
Bcc is 
CMP UNITN,LSUNIT sUNIT IN RANGE? 
BHIS 4s sBR IF NO. 
TST OUFLG sOROPPED UNIT? 
BMI NXTU 3BR IF YES 
MOV UNITN,R1 
ASL R1 
TST ERTABL(R1) 
BEQ SETU 
3 esti, ERTABL(R1) sDROPPED? 
EXIT INIT :00 NOTHING IF “CONTINUE”. 


18: READEF O€F .NEW 


era NXTU sTAKE NEXT UNIT IF NOT NEW PASS. 
READEF O€F. VSTART 


SEQ 061 


TSv4 


INITIALIZE SECTION 


$7 
58 


s9 


021526 
021532 
021534 


021732 
021732 


012700 
104447 


103404 


012700 
104447 


103031 


005037 


005037 


- MISCELLANEOUS SECTIONS 


000040 


000037 


002206' 
002214' 
003136' 
003140' 


003372' 
177777 

020530' 
020616' 
003170' 
003370' 


002176‘ 
021704' 


177777 
002212’ 


002174' 
002174' 
177777 


002012' 
002212' 


000100 


E/ 
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002176' 


002174’ 


002012' 
003104' 


000001 


2s: 


11%: 
PASRPT: 


MOV EF .START,RO 
TRAP CSREFG 
BCOMPLETE 2% 

ecs es 


READEF EF .RESTART 


MOV EF .RESTART ,RO 
TRAP CSREFG 
BNCOMPLETE 31% 

BCC 31% 

BRESET 

TRAP CSRESET 
CLR TSTCNT 

CLR FATFLG 

CLR T23A 

CLR T2386 

MOV #340, -(SP) 
MOV #208, -(SP) 
JMP 0.00T 

CLR SKIPT 

MOV @-1,QvP 
JSR PC,ENVIRN 
JSR PC .KTINIT 
MOV ERTABL ,RO 
CLR CRO)+ 

CMP RO, GERTABE 
BLO 30% 

BR 4$ 

CLR ave 

JMP PASRPT 

CLR VCNT 
BREAK 

TRAP CsBRK 

INC UNITN 

CMP UNITN,LSUNIT 
BLO SETU 

MOV @-1,0UFLG 
BR 11% 

DOCLN 

TRAP CsOCLN 
NOP 

CMP LSUNIT,@1 
BLOS NEWPAS 

TST DEVCNT 

BEQ NEWPAS 
RFLAGS RO 

TRAP CSRFLA 

BIT @ISR,RO 
BNE NEWPAS 
DORPT 

TRAP CsORPT 


31ST PASS, BUS-INIT... 
38US RESET. 


sNUMBER OF TESTS RUN IN PASS 
sCLEAR FATAL ERROR COUNT 

sCLEAR PROCSSOR TYPE A FLAG 
sCLEAR PROCSSOR TYPE B FLAG 


sRETURN TO DEBUGGER 


+s;Q@ENTER THE DEBUGGER 
sCLEAR THE SUBTEST “SKIPPER” 


3...QUICK VERIFY... 
sSET ENVIRONMENT. 
s INITIALIZE KT MEMORY MANAGEMENT 


sCLEAR THE ERROR TABLE 


3GO REPORT THE STATUS 


sINIT UNIT NUMBER... 
sCLEAR COUNT OF DEVICES RUNNING 


:...AND SET NEXT UNIT NUMBER. 


sABORT, NO MORE UNITS. 


sHOW MANY UNITS SELECTED? 
;8R IF ONLY 1 

sARE ANY STILL RUNNING? 
36R IF NO 


s;SHOULD WE PRINT STATISTICS 
;68R IF NO 


SEQ 082 


TSV4 - MISCELLANEOUS SECTIONS 


INITIALIZE SECTION 


021734 
021736 


021766 
021772 
021776 


022002 


022116 
022124 


000741 


010137 
012001 
010137 


012721 
013721 


013701 


101416 
104421 
032700 
001412 


013746 


012737 


F7 


MACRO M1113 01-FEB-84 18:55 SEQ 083 
BR NEWPAS 
108: 
SETU: GPHARD UNITN,RO sGET UNIT N P-TABLE POINTER. 
002174' MOV UNITN,RO 
TRAP C$GPHRD 
BNCOMPLETE NXTU 36R IF UNIT NOT AVAILABLE. 
Bcc NXTU 
003104’ CLR DUFLG sCLEAR “DROPPED” FLAG. 
002212' INC DEVCNT 
MOV CRO)+,R1 sGET 1ST REGISTER ADDRESS. 
002200’ MOV R1,CSRADOR sADDRESS OF REGISTERS OF UNIT UNDER TEST 
MOV CRO)+,R1 3GET VECTOR ADDRESS. 
sMOV CRO),R2] sGET INTERRUPT PRIORITY 
sMOV R2,IPRI sSET INTERRUPT PRIORITY. 
002202’ MOV R1,IVEC _" INTERRUPT VECTOR POINTER.. 
016106' MOV @INTR,CR1)> .- VECTOR. 
002204' MOV IPRI,CR1)+ . AND PRIORITY. 
1$: 
3 TST QvP 31ST PASS ?? 
3 BEQ 5$% 3NO, SKIP THE PASS 1 STUFF. 
3 
31ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
;THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 
& 
002174' MOV _ R1 


100000 003170’ 
002012’ 000001 


003106' 
002200' 


000002 
016266' 


0031 
177777 003104’ 


10$: 


2s: 
; 
sFINALLY, 


ASL 

BIS eerT15, ERTABL(R1) sSAY DEVICE RUNNING 

CLR sCLEAR ERROR EXTENSION FLAG. 
CMP LSUNIT, 01 sARE WE TESTING MULTIPLE UNITS? 
BLOS 10% ;BR IF NO. 

RFLAGS RO sYES -- GET OPERATOR FLAGS. 
TRAP CSRFLA 

BIT @PNT RO sSHOULD WE PRINT UNIT @? 
BEQ 10% :BR IF NOT 

PRINTF @PUNIT,UNITN ;PRINT THE UNIT © 

MOV UNITN, -(SP) 


CLR NODE V 

MOV CSRADOR ,R1 sADDRESS OF FIRST REGISTER 

MOV R1,Re sSTART OF REGISTERS 

ADD @TSSR ,R2 sADDRESS OF TSSR REGISTER 

JSR PC, XNXM sTEST BOTH CONTROLLER REGISTERS... 
BCC 2s 3...ANO BR IF ALL OK. 

MOV R1,NODEV sFLAG DEVICE AS — EXISTENT 

MOV @-1,0UFLG sOROP THIS UNIT 


SET CPU PRIORITY ANC WE'RE DONE. 


TSV4_- MISCELLANE 


INITIALIZE SECTI 


150 
151 


152 


022124 
022124 
022130 
022132 
022132 
022132 


022134 


022276 
022276 
022276 


022310 
022312 


enous SECTIONS MACRO M1113 
012700 000000 
104441 
104411 

045 116 045 
010001 
006301 
052761 100000 003170’ 
042761 040000 003170’ 
010046 
012746 022250’ 
012746 000002 
010600 
104417 
062706 000006 
000167 
000026 

045 116 045 
104452 
012737 177777 003104’ 
010001 
006501 
052761 140000 003170’ 


G7 


01-FEB-84 18:55 SEQ 084 


‘ 
S$: SETPRI @PRIOO 
MOV @PRTIOO ,RO 
TRAP CS$SPRI 


ENDINIT 
L10030: 

TRAP CSINIT 
a /SNENBAseeee TESTING UNIT SD28A eeeee/ 
— Vv 


sENABLE INTERRUPTS. 


PUNIT: 


-SBTTL ADD AND DROP UNITS SECTIONS 


see 

: THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST TIME, 

; OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 

gee 


BGNAU 
LSAU:: 
MOV RO,R1 3; GET UNIT TO BE ADDED (RO) 
ASL R1 3 MAKE IT A WORD INDEX 
BIS #100000 ,ERTABL(R1) ; SET THE “ACTIVE” BIT 
BIC #40000 ,ERTABL(R1) | 3; CLEAR THE “DROPPED” BIT 
PRINTF @1$%,R0 
MOV RO, -CSP) 
MOV #1$,-CSP) 
MOV @2,-CSP) 
MOV SP,RO 
TRAP CSPNTF 
ADD 06,SP 
EXIT AU 
. WORD J$ JUMP 
-WORD 110031-2-. 
i$ ASCIZ /sNSA UNIT SDA ADDED/ 
EVEN 
ENDAU 3; UNUSED. 
L10031 


CsAu 


THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 


: 
é 
5 
e 
3 SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
s “DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
s COMMAND, OTHERWISE REMAIN INACTIVE. THE “DISPLAY” COMMAND 
s WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
3s WHICH ARE STILL ACTIVE. 
; UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 


BGNOU 
L$0U 
MOV @-1,O0UFLG 
MOV RO,R1 
ASL R1 
BIS #140000 ,ERTABL(R1) s SAY DROPPED 


TSv4 


- MISCELL 
ADD AND 


191 022 


192 


DROP 


022472 
022476 


022500 


UNITS SECTION 


000000 
013727 
000000 


013705 
005737 
100405 


012765 


000240 000240 
022354’ 
000002 
000006 


116 045 


002200’ 
000550 
016140' 
000372 
002116° 
177772 


177756 


017074' 


MACRO M1113 


H7 


01-FEB-84 16:55 


s 2227722772? 


/SNSA UNIT 808A DROPPED/ 


40,240,240 
RINTF "els, RO 
MOV RO, -(SP) 
MOV ke ) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #6 ,SP 
EXIT Ou 
° J$ IMP 
m7 L10032-2-. 
1$: ASCIZ 
EVEN 
L1003e2: 
TRAP Cs0u 
yee 
; AUTO-DROP CODE SECTION. 
gece 
BGNAUTO 
LSAUTO:: 
MOV CSRADOR ,RS 
MOV @360., R3 
108: JSR PC, WALTF 
6cs 20% 
OELAY 250 
MOV #250. «(PC)» 
MOV LSOLY,(PC)-+ 
- WORD 
DEC -6(PC) 
BNE -4 
DEC -22(PC) 
BNE .-20 
DEC R3 
BNE 10$ 
JSR PC ,CKDROP 
203: 
ENDAUTO 
L10033: 
TRAP CsAUTO 


sPOINT TO DEVICE REGISTER 


SEQ 085 


sENOUGH TIME ‘- + a REEL TO REWIND 


sWAIT FOR SSR T 
sLEAVE WHEN SSR IS SET 
sWAIT FOR .25 SECONDS 


sBUMP COUNTER DOWN 
sKEEP GOING 
;TRY AND DROP UNIT 


3 UNUSED. 


-SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


zee 
s THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
; EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 

; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 


BGNCLN 


LSCLEAN:: 
MOV 


TsT 
BMI 


MOV 


CSRADOR ,RS 


#0, TSSRC(RS) 


sPOINT TO DEVICE REGISTER 
+ “DROPPED” FLAG IS SET ON, 
. AND ~ CONTROLLER FAULT. 
.DON'T TRY TO XCT CLEANUP CODE. 


3:00 SOFT INIT 


TSV4 - MISCELLANEOUS SECTIONS 
CLEAN-UP AND REPORT CODING SECTIONS 


247 


255 


004737 


104412 


016140' 


022756’ 


003170' 


040000 
170000 


023145’ 
000002 


000006 


17 
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18: 
2s: 
10034: 


JSR 
ENOCLN 
TRAP 


PC ,WAITF 


CSCLEAN 


see 
; THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


ge 
LSRPT:: 


1%: 


2s: 


3%: 


hela 
@*C7777,R2 


GET START OF ERROR TABLE. 
CLEAR UNIT NUMBER 


GET ERROR TABLE ENTRY € TEST IT. 


ZERO IF UNIT NOT RUN 


WAS UNIT 
E 


DROPPED? 


BR IF YES 
GET ERROR COUNT FIELD 


PRINT 


WAS UNIT 


BR IF NO 


WAS UNIT 


BR IF NO 


NON-EXISTENT? 


NOT READY AT STARTUP? 


SEQ 086 


TSv4 


- MISCELLANEOUS SECTIONS 


042702 170000 


010246 

010346 

012746 023226' 

012746 0000035 

010600 

104416 

062706 000010 

062704 000002 

005203 

020427 003370' 

103701 

012604 

012603 

012602 

104425 
045 116 
045 101 
045 101 
045 101 
045 101 


J7 


MACRO M1113 01-FEB-84 18:55 
CLEAN-UP AND REPORT CODING SECTIONS 


308: 


4$: 


@tC7777,R2 
@DEVORO,.R3,R2 
Re, -(SP) 

R3, -(SP) 
@DEVORO, -( SP) 
Sa" 
CSPNTS 


#10,SP 
@2,R4 
R 


3 
R4, OERTABE 
1% 
(SP )+,R4 


(SP)+,R3 
(SP)+,R2 


s UNUSED. 


CsRPT 


/@A 
/8A 
/@A 
/HA 


UNIT sD38A 
UNIT SO38A 
UNIT SO038A 
UNIT sD38A 


/SNSADEVICE STATUS SUMMARY :SN/ 
ONL INE 


ERRORS = sDSN/ 
NON-EXISTENT REGISTERSN/ 
NOT READY AT STARTUPSN/ 
ERRORS = sDsN/ 


DROPPED, 
DROPPED, 
DROPPED. 


SEQ 087 


TEST 1 - HARDWARE 
CLEAN-UP AND REPORT 


1 


10 


023276 
023276 


Te 


012737 


012727 
000000 
013727 
000000 


005367 
001375 
005367 
001367 


Stl 
coor 


KK 7 


-8 TEST MACRO M1113 0O1-FEB-84 18:55 SEQ 088 
NG SECTIONS 7 
.TITLE TEST 1 - HARDWARE TEST 1-8 TESTS 
BGNMOD TSV7B 
TSV7B:: 
.SBTTL TEST 1: WRITE TAPE MARK RETRY 
3° 
a 
;THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 
sREVERSE, ERASE, WRITE TAPE MARK). SUBTESTS ARE AS FOLLOWS: 
3 
a 
;THE TEST CONSISTS OF THE FOLLOWING 4 SUBTESTS 
3 
s 
a 
BGNTST ra 
006166‘ 002172' MOV @EPRT1,EPRTSW ;PRIMARY ERROR MESSAGE 
031677' MOV @TST29ID,RO sASCII MESSAGE TO IDENTIFY TEST 
016402‘ JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
S 002210’ MOV @5,LOOPCNT sPERFORM 5S ITERATIONS 
026254‘ CLR T29CNT ;CLEAR TAPE RECORD COUNTER 
T29L00P : 
3° 
¢ 
sTEST 1, SUBTEST 1 
° 
;VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE 
;TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION, WITH THE 
s;NON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 
H 
; 
; 
. BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
Feds 
TRAP CsBSUB8 
031726' JSR PC, T29REST ;SET COMMAND PACKET 
032020' JSR PC, T29RT2) 3SET UP OTHER COMMAND PACKET 
032062' JSR PC, T29RT3 ;SET UP OTHER COMMAND PACKET 
023420 026260' MOV #10000. , T29DLY ;SET UP DELAY ROUTINE 
015664’ 10$: JSR PC, SOF INIT :00 INITIALIZE ON CONTROLLER 
BCS 20$ ;6R IF INIT WAS OK 
DELAY 250 ;DELAY ABOUT .25 SECONDS 
000250 MOV #250,(PC)-+ 
. WORD Oo 
002116’ MOV LSOLY,(PC)-+ 
. WORD Oo 
177772 DEC -6(PC) 
BNE .-4 
177756 DEC -22(PC) 
BNE .-20 


TEST 1 


TEST 


1: 


WRITE 


- MARDWARE TEST 1- 
MARK 


TAPE 


026260' 
002214" 


002174" 


026070° 
010552" 


002214' 


026110' 20%: 


25%: 


000100 


017074' 
26%: 


30$: 


ERRHRD 


L7 


yest MACRO M1113 O1-FEB-84 18:55 


RO,R1 
ERRNO, SF IERR , SF IMSG 


UNITN, T290SW 
@T29PACKET ,R4 


RO, 
ERRNO, WRTMSG, SF IMSG 


TSSRCRS), RI 
OOFL ,R2 
R1,R2 


26% 
ERRNO, T290FL ,EXPREC 


PC ..CKDROP 

PC ,REWIND 
TSSRCRS),R1 

@SSR,R2 

30$ 

RO,R4 

FATFLG 

ERRNO, T29RWN,PKTSSR 


T29BFR+6,R1 


FATFLG 
ERRNO, T29B0T ,EXPREC 


sBUMP DELAY ROUTINE DOWN 
sBR, IF MORE DELAY TIME LEFT 
sERROR COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS a 


sSET UP UNIT NUMBER 


SEQ 089 


sSUBROUTINE NEEDS PACKET ADDRESS 


s ISSUE WRITE CHARACTERISTICS 

;BR, IF COMMAND ISSUED OK 
sERROR COUNT 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC 4 


sLOOP IF SELECTED 


s;GET THE TSSR 

;SET UP EXPECTED 

sOFF LINE SHOULD NOT BE SET 
s THEY SHOULD BE EQUAL 

sBR, IF OFL IS NOT SET 
sORIVE IS OFF LINE 


;TRY AND DROP DRIVE 

sCALL TAPE REWIND COMMAND 

:GET TSSR 

;SET UP EXPECTED TSSR 

:BR, IF NO PROBLEM 

sPACKET ADDRESS SET UP 
sERROR COUNT 

sREWIND NOT ACCEPTED 


sLOOP IF SELECTED 


sPICK UP XSTO 

;SET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
300ES EXP = REC'D 

sBR, IF EQUAL (OK) 


sERROR COUNT 
; TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 


WRTMSG 
SF IMSG 


CsCLP1 


CSERHRD 
104 
T29RWN 
PKTSSR 


CsCLP1 


CSERHRD 
105 
T29B80T 


M7 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 01-FEB-84 18:55 SEQ 090 
TEST 1: WRITE TAPE MARK RETRY 
023614 015364’ «WORD EXPREC 
119 023616 40$: CKLOOP sLOOP IF SELECTED 
023616 104406 TRAP CSCLP1 
120 023620 013737 003116’ 026222' MOV FREE , T29RB sADDRESS OF READ BUFFER 
121 023626 012737 141011 026220’ MOV #141011, T29PK3 sWRITE TAPE MARK RETRY,CVC=1,ACK COMMAND 
122 023634 012704 026220’ MOV @T29PK3,R4 sSET UP R4 WITH PACKET ADDRESS 
123 023640 010465 000000 MOV R4, TSOBCRS) s ISSUE COMMAND 
124 023644 004737 016140’ JSR PC ,WAITF sWAIT FOR SSR TO SET 
125 023650 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
126 025654 012702 100206 MOV @SSR!ISC!BIT1!BIT2,R2] ;SET UP EXPECTED 
127 023660 020102 CMP R1,R2 sARE THEY EQUAL 
128 023662 001406 BEQ 75$ :BR, IF OK 
129 023664 005237 002214’ INC FATFLG sERROR COUNT 
133 023670 ERRHRD ERRNO, T29WDE ,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
02367C 104456 TRAP CSERHRD 
023672 000152 . WORD 106 
023674 027342’ . WORD T29WDE 
023676 011736' -WORD PKTSSR 
134 023700 75$: CKLOOP ;LOOP IF SELECTED 
023700 104406 TRAP CSCLP1 
135 023702 013701 026120’ MOV T29BFR+6,R1 ;GET XSTO STATUS WORD 
136 023706 010102 MOV R1,R2 ;SET UP EXPECTED 
137 023710 052702 002000 BIS #B81IT10,R2 ;SET THE NEF BIT 
138 023714 020102 CMP R1,R2 ;ARE THEY EQUAL 
139 023716 001406 BEQ 170$ 3;BR, IF EQUAL (GOOD) 
140 023720 005237 002214’ INC FATFLG ;ERROR COUNT 
144 023724 ERRHRD ERRNO, T29NEF ,EXPREC sNEF SHOULD BE SET 
023724 104456 TRAP CSERHRD 
023726 000153 WORD 107 
023730 026410' «WORD T29NEF 
023732 015364’ -WORD EXPREC 
145 023734 170$: 
146 023734 005103 COM R3 sRESET THE SWITCH 
147 023736 001273 BNE 26$ ;BR, IF FIRST TIME THROUGH HERE 
148 023740 ENDSUB 
023740 L10037: 
023740 104403 TRAP CSESUB 
149 023742 023727 002214' 000017 CMP FATFLG,#15. :IS ERROR COUNT AT 25 
150 023750 103402 BLO 999$ ;BR, IF LESS THAN 25 
151 023752 004737 017074: JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
152 023756 999$: 
153 
154 3° 
155 ; ' 
043 ;TEST 1, SUBTEST 2 
‘ 
158 sVERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE TAPE 
159 sIS POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) RESULTS IN 
ref Hany STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS BIT 
H . 
162 ; 
163 ; 
164 : 
165 :- 
166 023756 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
023756 Tl.e: 


1.2: 
023756 104402 TRAP CSBSUB 


004737 
004737 
004737 


011724' 


031726' 
032020’ 
032062' 
015664" 


002214’ 


002174' 


026070° 
010552" 


002214’ 


026120' 
000002 


002214' 


000000 
016140’ 
000002 


026110' 


026222' 
026226' 
026220' 


203: 


30$: 


40$: 


N7 


PC, T29REST 

PC, T29RT2 

PC, T29RT3 

PC SOF INIT 
$ 


20 

FATFLG 

RO,R1 

ERRNO, SFIERR, SF IMSG 


UNITN, T290SW 
@T29PACKET ,R4 
WRTCHR 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


PC ,REWIND 
TSSRCRS),R1 
@SSR,R2 

30$ 


RO,R4 
FATFLG 
ERRNO, T29RWN,PKTSSR 


T29BFR+6,R1 
R1,R2 


oBiTi, Re 

R1,R2 

40$ 

FATFLG 

ERRNO, T29B0T ,EXPREC 


#1, T29RB 

#256. ,T29SZ 
#140005 , T29PK3 
@T29PK3,R4 

R4, TSOBCRS) 

PC ,WAITF 
TSSRCRS),R1 


3SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
3:00 INITIALIZE ON CONTROLLER 
;6R IF INIT WAS OK 

sERROR COUNT 
sCONTENTS OF TSSR REGISTER 
;FATAL ERROR TSSR WAS wae & 


;SET UP UNIT NUMBER 


;SUBROUTINE NEEDS PACKET ADDRESS 
"; ISSUE WRITE CHARACTERISTICS 


;6R, IF COMMAND ISSUED OK 
s;ERROR COUNT 

; SAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTISC 4-- » 


;LOOP IF SELECTED 


T 
;CALL TAPE REWIND COMMAND 
;GET TSSR 
;SET UP EXPECTED TSSR 
;BR, IF NO PROBLEM 
sPACKET ADDRESS SET UP 

sERROR COUNT 

sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 


sPICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 

;BR, IF ooann COK) 


RROR COUNT 
; TAPE not AT BOT AFTER REWIND 
TRAP 
- WORD 
WORD 


-WORD CE 
sNUMBER OF RECORDS TO SPACE OVER 


s;SET UP RECORD SIZE 


SEQ 091 


CSERHRD 
09 


1 
WRTMSG 
SF IMSG 


CsCLP1 


CSsCLP1 


CSERHRD 
111 
T29B0T 


sWRITE FORWARD,CVC=1,ACK COMMAND 


;SET UP R4 WITH PACKET ADDRESS 


s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 


T 1 


218 
219 
220 


WRITE TAPE 


024212 
024216 


011724' 


104444 
005237 


104456 


010102 


000200 


026120' 
000004 


002214' 41%; 


758: 


000001 026222' 
140410 026220' 


026220' 
000000 
016140' 
000002 
000200 


002214' 


1758: 


003116' 026222’ 
141011 026220' 
026220' 

000000 

016140' 

000002 

100204 


002214' 


1803; 


026126' 


B8 
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TEST 1: MARK RETRY 


ai 
ERRNO, T29WLK , SF IMSG 


FATFLG 
ERRNO, TO9WRT ,PKTSSR 


#1, T29RB 
#140410, T29PKS 


@T29PKS ,R4 
R4, TSOBCRS) 
PC WAILTF 
TSSR(RS),R1 
@SSR,R2 


RRNO, T29WDE ,PKTSSR 


FREE , T29RB 
#141011, T29PKS 
@T29PKS RE 

R4, TSDBCRS) 
PC ,WAITF 
TSSRCRS),R1 
@SSRISCIBIT2,R2 
1,R2 


180% 
FATFLG 
ERRNO, T29WDE , PKTSSR 


T298FR+14,R1 
R1,R2 


SEQ 092 
sSET UP EXPECTED 
sARE THEY EQUAL 
s68R, IF OK 
sPICK UP XTSO 
3IS UNIT WRITE -LOCKED? 
s3NO,PROCEED WITH NORMAL ERROR 
sTAPE IS WRITE LOCKED 
TRAP CSERDF 
WORD 111 
WORD T29WLK 
-WORD SFIMSG 
sOROP IT 
TRAP CSO0CLN 
sERROR COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
. WORD 112 
. WORD T2OWRT 
-WORD PKTSSR 


sLOOP IF SELECTED 


TRAP 
sNUMBER OF RECORDS TO =o OVER 
sSET UP COMMAND IN APCKE 


sSET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 


sERROR COUNT 
3TSSR INCORRECT AFTER READ DATA 
TRAP CSERHMRD 


CscLP1 


-WORD 113 
-WORD T29WDE 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CscLP1 


sADDRESS OF BUFFER 
sWRITE TAPE MARK RETRY,ACK, og 1 COMO. 
1SET UP R4& WITH PACKET ADDRES 


s ISSUE COMMAND 

iWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 


TRAP CSERHRD 

. WORD 114 

-WORD T29wDE 

-WORD  PKTSSR 
sLOOP IF SELECTED 

TRAP CscLP1 


sGET XST3 STATUS WORD 
sSET UP EXPECTED 


3sSET 


TEST 
TEST 


1 


1: 


306 024620 


- MARDWARE TEST 1 
WRITE TAPE 


000000 
013727 
000000 


C8 


-8 =" MACRO M1113 01-FEB-84 18:55 


MARK RET 


002214’ 
017074° 


002116' 
177772 
177756 
026260' 
002214' 


002174' 
026070’ 
010552" 


000017 


026260' 


026110' 


BIS 
CMP 


1908: 


9998: 


3° 


@BITO,R2 
R1,Re2 
190% 
FATFLG 


ERRNO, TO9RIB ,EXPREC 


FATFLG,@15. 
9993 
PC ,CKDROP 


4 

sTEST 1, SUBTEST 3 
3 

sVERIFIES THAT A WRITE TAPE MARK RETRY COMMAND TERMINATES 


sPROPERLY AND WRITES THE TAPE MARK ONTO TAPE (BY ISSUING A READ REVERSE 


sCOMMAND AND CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMK=1). 


BGNSUB 


108: JSR 


20%: MOV 


PC, T29REST 
PC, T29RT2 
PC, T29RTS 


0000. , T290L Y 


#1 

PC, SOF INIT 
20% 

250 


RO, 
ERRNO, SF IERR, SF IMSG 


UNITN, T290SW 
@T29PACKET ,R4 


PC ,WRICHR 


sSET THE RIB BIT 

sARE THEY EQUAL 

s8R, IF EQUAL (GOOD) 
sERROR COUNT 

sNEF SHOULD BE SET 


SEQ 093 


T29RIB 
EXPREC 


3>>>>>>>>>>>> END SUBTEST »>>>>>>>>>>> 


L10040; 
TRAP 
sIS ERROR COUNT AT 25 
3B8R, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


CsESuUB 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
71.3: 


TRAP 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
1SET UP OTHER COMMAND PACKET 
sSET UP DELAY ROUTINE 
300 INITIALIZE ON CONTROLLER 
s8R IF INIT WAS OK 
sDELAY ABOUT .25 SECONDS 


sBUMP DELAY ROUTINE DOWN 
38R, IF MORE DELAY TIME LEFT 
sERROR COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP 
WORD 
. WORD 
3SET UP DRIVE NUMBER 


sSUBROUTINE NEEDS PACKET ADDRESS 


sISSUE WRITE CHARACTERISTICS 


CsBSUB 


gene. koe oe 
LOL .CPC)- 
-6(PC) 

.-4 

-22(PC) 


TEST 1 
TEST 


TAPE MARK RETRY 


103407 
005237 
010001 


104456 
000165 
005046 ' 
011724' 


002214' 


026120’ 
000002 


002214' 


140011 
026220' 


000000 
016140’ 
000002 
000200 


002214’ 


000001 
141011 
026220’ 
000000 


016140’ 
000002 


026220' 


23%: 


308: 


40$: 


- HARDWARE TEST 1-8 TEST MACRO M1113 01-FEB-84 
1: WRITE 


D8 


18:55 
23% 
FATFLG 
RO,R1 
ERRNO, WRTMSG, SF IMSG 


se 
TSSRC(RS),R1 
RO,R4 


FATFLG 
ERRNO, T29RWN,PKTSSR 


a 


LG 
ERRNO, T29B0T , EXPREC 


#140011, T29PKS 


@SSR,R2 


FATFLG 
ERRNO, T29WOC ,PKTSSR 


01. ,R3 
#141011, T29PKS 


PC ,WAITF 
TSSRCRS),R1 


SEQ 094 
s8R, IF COMMAND ISSUED OK 
sERROR COUNT 

s SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
«WORD 117 
«WORD WRTMSG 
«WORD SFIMSG 


sLOOP IF SELECTED 
TRAP CsCLP1 


sCALL_ TAPE REWIND COMMAND 
sBR, IF NO PROBLEM 


sGET TSSR 

sSAVE PACKET ADDRESS 
sERROR COUNT 

sREWIND NOT ACCEPTED 


TRAP CSERHRD 
~ WORD 118 
- WORD T29RWN 
- WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP xSTO 
3SET UP EXPECTED 
3SET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
;6R, IF EQUAL (OK) 
3sERR OUNT 
sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
~ WORD 119 
- WORD T2980T 
.- WORD EXPREC 
:LOOP IF SELECTED 
TRAP CsCLP1 
sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
3SET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
3sGET TSSR CONTENTS 
3SET UP EXPECTED 
3sARE THEY EQUAL 
36R, IF Oe 
RROR COUNT 
:TSSR INCORRECT AFTER ae TAPE MARK 
CSERHRD 
TWORD 120 
.- WORD T29wOC 
. WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLPl 


sNUMBER OF RECORDS TO WRITE TM 

sWRITE TAPE MARK RETRY,ACK,CVC=1 COMMAND 
3sSET UP R4& WITH PACKET ADDRESS 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sPICK UP TSSR 


TEST 1 - HARDWARE TEST 1- 8 T 
MARK R 


TEST 


1: 


WRITE TAPE 


012702 
020102 


000200 


002214’ 


140401 
003116' 
026220' 
000000 
016140° 
000002 
100204 


002214’ 


026120' 
100000 


002214’ 


002214' 
017074' 


cine MACRO M1113 01-FEB-84 


026220' 
026222' 


000017 


18:55 

MOV OSSR,R2 

CMP R1,R2 

BEQ 165% 

INC FATFLG 

ERRHRD ERRNO, T29WOC,.PKTSSR 
165%: CKLOOP 

MOV #140401, T29PK3 

MOV FREE , T29RB 

MOV @T29PK3,R4 

MOV R4, TSOBCRS) 

JSR PC ,WALTF 

MOV TSSRCRS ),R1 

MOV @SSR!SC!BIT2,R2 

CMP R1,R2 

BEQ 2228 

INC FATFLG 

ERRHRD ERRNO, T29RDG,PKTSSR 
2228: CKLOOP 

MOV T298FR+6,R1 

MOV R1,R2 

BIS eBiT 15,R2 

CMP R1,R2 

BEQ 226% 

INC FATFLG 

ERRHRD ERRNO, T29RRN,EXPREC 
2268: CKLOOP 

ENDSUB 

CMP FATFLG, #15, 

BLO 9998 

JSR PC ,CKDROP 
999%: 


s¢ 
i 
sTEST 1, SUBTEST 4 


SEQ 095 


sSET UP EXPECTED (SSR ONLY) 
sWAS STATUS GOOD 
sBR, IF TERMINATION WAS GOOD 


sERROR COUNT 
sTSSR NOT CORRECT AFTER WRT TAPE M. 


TRAP CSERHRD 

«WORD 121 

«WORD T29WOC 

«WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CsCLP1 


sREAD REVERSE ,ACK, COMMAND 
sNUMBER OF RECORDS TO SPACE BACK 
sSET UP R4 WITH PACKET ADDRESS 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 


3BR, IF OK 
sERROR COUNT 
:TSSR INCORRECT AFTER age 8 CMO. 
CSERHRO 

TWORO 122 
~ WORD T29RDG 
.WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CsCLP1 

sPICK UP xSTO 

sSET UP EXPECTED 

;TMK SHOULD BE SET 

3IS TMK SET 

;6R, IF TMK WAS SET (GOOD) 

sERROR COUNT 

3;TMK NOT SET AFTER READ REV 
TRAP CSERHRD 
. WORD 123 
» WORD T29RRN 
.WORD EXPREC 


sLOOP IF SELECTED 


TRAP CSCLP1 
3<<eececeece END SUBTEST »>>>>>>>>>>> 
L10041: 
TRAP CsESUB 


sIS ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


é 

sVERIFIES THAT THE SPACE-REVERSE PORTION OF THE WRITE TAPE MARK 
sRETRY OPERATION IS PERFORMED BY REWINDING THE TAPE, ISSUING SEVERAL 
sWRITE TAPE MARK RETRY COMMANDS IN SUCCESSION, THEN ISSUING TWO SPACE 


sRECORDS REVERSE COMMANDS IN SUCCESSION. 


THE SECOND SPACE RECORDS REVERSE 


F8 
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res sCOMMAND SHOULD TERMINATE WITH REVERSE INTO BOT (RIB) STATUS SET. 
+ 

407 ‘> 

408 025224 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
025224 71.4: 
025224 104402 TRAP Cs6SuUB 

409 025226 004737 031726' JSR PC, TESREST 3SET COMMAND PACKET 

410 025232 004737 032020’ JSR PC, T29RT2 3SET UP OTHER COMMAND PACKET 

411 025236 004737 032062’ JSR PC, T29RTS sSET UP OTHER COMMAND PACKET 

412 025242 012737 023420 026260' MOV #10000. , T29DLY sSET UP DELAY ROUTINE 

413 025250 004737 015664’ 108: JSR PC ,SOF INIT 300 INITIALIZE ON CONTROLLER 

414 025254 103426 6cs 20$ ;6R IF INIT WAS OK 

415 025256 DELAY 250 sDELAY ABOUT .25 SECONDS 
025256 012727 000250 MOV #250 ,(PC)>+ 
025262 000000 . WORD 0 
025264 013727 002116’ MOV LSOLY,CPC)>+ 
025270 000000 . WORD 0 
025272 005367 177772 DEC -6(PC) 
025276 001375 BNE --4 
025300 005367 177756 DEC -22¢€PC) 
025304 001367 NE --20 

416 025306 005337 026260' DEC T290LY sBUMP DELAY ROUTINE DOWN 

417 025312 001356 BNE 10$ 38R, IF MORE DELAY TIME LEFT 

418 025314 005237 002214' INC FATFLG sERROR COUNT 

422 025320 010001 MOV RO,R1 : CONTENTS OF TSSR REGISTER 

423 025322 ERROF ERRNO, SFIERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
025322 104455 TRAP CSEROF 
025324 000174 . WORD 124 
025326 003642’ . WORD SFIERR 
025330 011724' ‘ SF IMSG 

424 025332 013737 002174' 026110’ 203: MOV UNITN, T290SW ;SET UP DRIVE NUMBER 

425 025340 012704 026070: MOV @T29PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

426 025344 004737 010552’ JSR PC,WRTCHR : ISSUE WRITE CHARACTERISTICS 

427 025350 103407 BcSs 23% ;8R, IF COMMAND ISSUED OK 

428 025352 005237 002214’ INC FATFLG sERROR COUNT 

432 025356 010001 MOV RO,R1 3; SAVE CONTENTS OF TSSR 

433 025360 ERRHRD ERRNO, WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
025360 104456 TRAP CSERHRD 
025362 000175 . WORD le 
025364 005046’ . WORD WRTMSG 
025366 011724’ .WORD SF IMSG 

434 025370 23%: CKLOOP :LOOP IF SELECTED 
025370 104406 TRAP CSCLP1 

435 025372 004737 010704' JSR PC ,REWIND sCALL TAPE REWIND COMMAND 

436 025376 103411 6cs 30$ :BR, IF NO PROBLEM 

437 025400 016501 000002 MOV TSSRCRS),R1I ;GET TSSR 

438 025404 010004 MOV RO,R4 sSAVE PACKET ADDRESS 

439 025406 005237 002214’ INC FATF LG sERROR COUNT 

443 025412 ERRHRD ERRNO, T29RWN,PKTSSR sREWIND NOT ACCEPTED 
025412 104456 TRAP CSERHRD 
025414 000176 .WORD 126 
025416 030065’ .WORD T29RWN 
025420 011736’ . WORD PKTSSR 

444 025422 308: CKLOOP ;LOOP IF SELECTED 
025422 104406 TRAP CsCLPl 

445 025424 013701 026120’ MOV T29BFR+6,R1 sPICK UP xSTO 


446 025430 010102 MOV R1,R2 sSET UP EXPECTED 


G8 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 01-FEB-84 18:55 SEQ 097 
TEST 1: WRITE TAPE MARK RETRY 

447 025432 052702 000002 BIS oBIT1,R2 sSET BOT BIT IN EXPECTED 

448 025436 020102 CMP R1,R2 ~ sD0ES EXP = REC'D 

449 025440 001406 BEQ 40% sBR, IF pe (OK) 

450 025442 005237 002214’ INC FATFL sERROR COUNT 

454 025446 ERRHRD ERRNO. T29B0T , EXPREC 3 TAPE Not AT BOT AFTER REWIND 
025446 104456 TRAP CSERHRD 
025450 000177 «WORD 127 
025452 027556’ -WORD T29B0T 
025454 015364’ -WORD  EXPREC 

4SS 025456 408: CKLOOP sLOOP IF SELECTED 
025456 104406 TRAP CsCLP1 

4S6 025460 012737 140011 026220‘ MOV #140011, T29PK3 sWRITE TAPE MARK,ACK,CVC=1 COMMAND 

4S7 025466 012704 026220' MOV @T29PK3,R4 sSET UP R4 WITH PACKET ADDRESS 

458 025472 010465 000000 MOV R4, TSOBCRS) s ISSUE COMMAND 

4S9 025476 004737 016140’ JSR PC ,WAITF sWAIT FOR SSR TO SET 

460 025502 016501 000002 MOV TSSR(RS), R1 sGET TSSR CONTENTS 

461 025506 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 

462 025512 020102 CMP R1,R2 sARE THEY EQUAL 

463 025514 001406 BEQ 70$ s8R, IF OK 

464 025516 005237 002214’ INC FATFLG sERROR COUNT 

468 025522 ERRHRD ERRNO, T29WDC ,PKTSSR ;TSSR INCORRECT AFTER WRITE TAPE MARK 
025522 104456 TRAP CSERHROD 
025524 000200 «WORD 128 
025526 030457' «WORD T29WOC 
025530 011736’ -WORD PKTSSR 

469 025532 708; CKLOOP sLOOP IF SELECTED 
025532 104406 TRAP CsCLP1 

470 025534 012703 000012 150%: MOV #10. ,R3 sNUMBER OF RECORDS TO WRITE TM 

471 025540 012737 000001 026222’ MOV #1, T29RB sSET UP PACKET 

472 025546 012737 141011 026220’ MOV #141011, T29PK3 sWRITE TAPE MARK RETRY,ACK,CVC=1 COMMAND 

473 025554 012704 026220’ MOV OT29PK3.R4 ;SET UP R4& WITH PACKET ADDRESS 

474 025560 010465 000000 155%: MOV R4, TSOBCRS) s ISSUE COMMAND 

475 025564 004737 016140' JSR PC ,WAITF sWAIT FOR SSR TO SET 

476 025570 016501 000002 MOV TSSRCRS).R1 sPICK UP TSSR 

477 025574 012702 000200 MOV @SSR,R2 sSET UP EXPECTED (SSR ONLY) 

478 025600 020102 CMP R1,R2 sWAS STATUS GOOD 

479 025602 001406 BEQ 165$ 3;BR, IF TERMINATION WAS GOOD 

480 025604 005237 002214' INC FATFLG sERROR COUNT 

484 025610 ERRHRD ERRNO, T29WDC .PKTSSR sTSSR Not CORRECT AFTER WRT TAPE M. 
025610 104456 TRAP CSERHRO 
025612 000201 WORD 129 
025614 030457' “WORDT 
025616 011736’ -WORD -KTSSR 

485 025620 1658: CKLOOP sLOOP IF SELECTED 
025620 104406 TRAP Csc.P1 

486 025622 005303 DEC R3 sBUMP COUNTER DOWN 

487 025624 001355 BNE 155% ;BR, IF LESS THAN 10 TAPE MARKS 

488 025626 012737 140410 026220' MOV #140410, T29PK3 sSPACE REVERSE ,ACK,CVC=1, COMMAND 

489 025634 012737 000001 026222’ MOV #1, T29RB sNUMBER OF RECOROS TO SPACE BACK 

490 025642 012704 026220’ MOV OT29PK3 ,R4 sSET UP R4 WITH PACKET ADDRESS 

491 025646 010465 000000 MOV R4, TSDBCRS) s ISSUE COMMAND 

492 025652 004737 016140’ JSR PC ,WAITF sWAIT FOR SSR TO SET 

493 025656 016501 000002 MOV TSSR(RS), R1 sGET TSSR CONTENTS 

494 025662 012702 100204 MOV @SSR!SC!BIT2,R2 sSET UP EXPECTED 

495 025666 020102 CMP R1,R2 sARE THEY EQUAL 

496 025670 001406 BEQ 2228 sBR, IF OK 


497 025672 005237 002214’ INC FATFLG sERROR COUNT 


TEST 
TEST 


1 


501 


WRITE 


TAPE MARK RETRY 


104456 


000202 
027342' 
011736’ 


100410 026220’ 
000005 026222’ 
026220' 


000000 
016140' 


026126' 
000001 


002214' 


002214’ 
017074' 


000017 


2228: 


2608: 


2708: 
3308: 


999%: 


163%: 


- HARDWARE TEST 1-8 TEST MACRO M1113 01-FEB-84 
1: 


ERRHRD 


H8 


18:55 


ERRNO, T29WDE ,PKTSSR 


« 


#100410, T29PK3 
os,T 
@T29PK3 ,R4 
R4, TSOBCRS) 
PC ,WAITF 
TSSRCRS),R1 
@SSR!SC!BIT2,R2 
R1,R2 

$ 


260 
FATFLG 
ERRNO, T29RDG ,PKTSSR 


T29BFR+14,R1 
R1,R2 
a 


G 
ERRNO, T29RIB ,EXPREC 


FATFLG,@15. 
999% 
PC, CKDROP 


PC, TSTLOOP 
163% 
T29L00P 
TsT 


sTSSR INCORRECT AFTER SPACE CMD. 
TRAP 


. -WORD 130 


sLOOP IF SELECTED 
TRAP CsCLP1 


sSPACE REVERSE ACK, COMMAND 
sNUMBER OF RECORDS TO SPACE BACK 
sSET UP _R4 WITH PACKET ADDRESS 


s ISSUE COMMAND 

iWATT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 
THEY EQUAL 


3 ARE 
3;68R, IF OK 
sERROR COUNT 
:TSSR INCORRECT AFTER SPACE REV CMD. 
TRAP CSERHRD 
. WORD 131 


-WORD T29R0G 
-WORD PKTSSR 


TRAP CsCLP1 


sLOOP IF SELECTED 


sPICK UP XSTS 

sSET UP EXPECTED 

sRIB SHOULD BE SET 

:IS RIB SET 

:BR, IF nen WAS SET (GOOD) 

RROR COUNT 

3 TMK NOT’ SET AFTER READ REV 
TRAP CSERHRD 
-WORD 132 
-WORD T29RIB 
«WORD EXPREC 

sLOOP IF SELECTED 
TRAP CsCLP1 


sLOOP IF SELECTED 
CsCLP1 


TRAP 
g<eeceececece END SUBTEST >>>>>>>>>>> 
L1004e: 
TRAP CsESUB 
:IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


300 WE NEED TO ITERATE TEST 

:BR, IF NO LOOP REQUIRED 

sEXECUTE AGAIN 

sALL DONE THIS TEST 
TRAP CSExIT 
-WORD 110036-. 


TEST 1 


TEST 


1: 


- HARDWARE TEST 1 
WRITE TAPE MARK RE 


010 


140001 
140401 
141001 
161001 
141401 
161401 
177777 


000000 


; 
s;WRITE SUBSYSTEM MEMORY COMMAND PACKET 


BL 
TOSPACKET: 
. WORD 
. WORD 
. WORD 
. WORD 
T29DATA: 
. WORD 
«WORD 
. WORD 
. WORD 
T290SW: .WORD 
T29BFR: .BLKW 
3 
.BLKB 
T29PKe: 
. WORD 
. WORD 
. WORD 
. WORD 
.BLKB 
T29PKS3: 
. WORD 
T29RB: 
T29WB: .WORD 
. WORD 
T29SZ . WORD 
-EVEN 
3 
3 
3 
T296F 2 
T298S0: .BYTE 
T298S1: .BYTE 
T29S2 - WORD 
T2983 - WORD 


.EVEN 
; TAPE MOTION PACKET COMMAND VALUES 


T29RN: 
T29WOR : 
T29CON: 


° 
T29CNT: 


18 


-8 -— MACRO M1113 O1-FEB-84 18:55 


a¢ 
sLOCAL STORAGE FOR THIS TEST 


10-<. -TSV2E7> 


14004 
T29DATA 


10-<, -TSV2E7> 


100006 
_— 2 


6. 
10-<, - TSV2E7> 
140005 


FREE 
0 
9) 


140001 
140401 
141001 
161001 
141401 
161401 
177777 


0) 


SEQ 099 


sCCMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH CvC=1, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE O 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sWRITE TAPE MARK RETRY COMMAND, CVC-1 AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER CEXTENT) 


sBSELO AREA 
;BSEL1 AREA 
sSEL 2 AREA 
sDATA AREA 


sREAD DATA 

sREAD DATA REVERSE 

sREAD PREVIOUS OPP=0 

sREAD PREVIOUS OPP=1 

sWRITE TAPE MARK RETRY NEXT OPP=0 
sWRITE TAPE MARK RETRY NEXT OPP=1 
sEND OF DATA 


s TAPE RECORD COUNTER STORAGE AREA 


J8 


TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113 O1-FEB-84 18:55 SEQ 100 
TEST 1: WRITE TAPE MARK RETRY 
607 
608 026256 000000 T29RSZ: .WORD O sRECORD STORAGE SIZE AREA 
= 026260 000000 T290LY: .WORD ;DELAY COUNTER STORAGE AREA 
61 
611 
612 3° 
4 ;LOCAL TEXT MESSAGES FOR TEST 
S* 
615 
616 
617 026262 104 162 151 Tes #L: .ASCIZ ‘Drive is OFFLINE’ 
618 026303 124 141 160 T29WNG: .ASCIZ ‘Tape Position Incorrect After WRITE TAPE MARK RETRY Previous (OPP=1)° 
619 026410 127 122 111 TOONEF: .ASCIZ ‘WRITE TAPE MARK RETRY, At BOT, Failed To Set NEF (XSTO)’ 
620 026500 124 123 123 T29ROF: .ASCTZ ‘TSSR Incorrect After READ DATA Command’ 
621 026547 127 122 111 T29RRF: .ASCIZ ‘WRITE TAPE MARK RETRY Previous (Space Reverse, Read Forward) Command Failed 
622 026663 127 122 111 T29RRG: .ASCIZ ‘WRITE TAPE MARK RETRY Previous (Read Forward, Space Reverse) Command Failed 
623 026777 120 117 123 T2e9SC: .ASCIZ ‘POSITION (Space Command) Failed, TSSR Not Correct’ 
624 027061 122 111 102 T29L0R: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 
625 027131 124 123 123 T29WOF: .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set’ 
626 027206 111 154 154 Tesn.o0g@: .ASCIZ ‘Ill l Mode Bits, Failed To Set ILC Bit In XSTO’ 
627 027267 127 122 111 T29SSR: .ASCIZ ‘WRITE TAPE MARK RETRY COMMAND Not Accepted’ 
628 027342 124 123 123 T29WDE: .ASCIZ ‘TSSR Not Correct After SPACE REVERSE DATA Command 
629 027424 os2 0s2 O52 T29WK: .ASCIZ ‘seeeeeTAPE IS WRITE-LOCKED AND WILL CAUSE ERRORSe sees: 
630 027511 124 123 123 T29WRT: .ASCIZ ‘TSSR Not Correct After WRITE Command’ 
631 027556 124 141 160 T2980T: .ASCIZ ‘Tape Not At BOT After REWIND Command’ 
632 027623 104 141 164 T290TA: .ASCIZ ‘Dete Written To Tape Not Equel To Date Read From Tape’ 
633 027711 127 122 111 T29EOT: .ASCIZ ‘WRITE TAPE MARK RETRY DATA OVER EOT GAVE NO TAPE STAT TUS ALERT’ 
634 030007 124 123 123 T29TM: .ASCIZ ‘TSSR Not Correct After SPACE REVERSE Into BOT’ 
635 030065 122 145 167 T29RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
636 030134 122 101 115 T29RNC: .ASCIZ ‘RAM Error, Correct Detea Pattern Not In Ram’ 
637 030207 124 123 123 T29AM3: .ASCIZ ‘TSSR Init. Failed After WRITE TAPE MARK RETRY COMMAND’ 
638 030275 104 162 151 T290F7: .ASCIZ ‘Drive 7 Select Failed To Set “OFL” In TSSR’ 
639 030350 124 123 123 T29WDD: .ASCIZ ‘TSSR Not Correct After WRITE TAPE MARK RETRY DATA Command, SWB Bit Set’ 
640 030457 124 123 123 T29WOC: .ASCIZ ‘TSSR Not Correct After WRITE TAPE MARK RETRY DATA Command’ 
641 030551 103 126 103 T2e9vCK: .ASCIZ ‘CVC Set, Didn'‘t Reset VCK In Mess Buffer’ 
642 030624 124 123 102 T298A: .ASCIZ ‘TSBA Not Correct After WRITE TAPE RETRY DATA Command’ 
643 030716 127 122 111 T29WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
644 031005 122 145 141 T29L0N: .ASCIZ ‘Reading Long Record Failed To Set RLL Bit In XSTO’ 
645 031067 122 145 141 T29L.0P: .ASCIZ ‘Reading Long Record Failed To Set RLS Bit In XSTO' 
646 031151 122 145 163 T29PBP: .ASCIZ ‘Residual , Seen Count Incorrect After Short Record Read’ 
647 031237 122 145 141 T29TRL: .ASCIZ wees Record Failed To Give Tape Status Alert’ 
648 031325 104 141 164 T29NEQ: .ASCIZ ‘Date ITE TAPE MARK RETRY From Tape Not Correct, After SWB=-1' 
649 031423 124 123 123 T29RDG: .ASCIZ ‘TSSR Incorrect After READ REVERSE Into Tape Mark’ 
650 031504 127 122 111 T29RIB: .ASCIZ ‘WRITE TAPE MARK RETRY At First Record, Failed To Set RIB (XST3)’ 
651 031604 124 115 113 T29RRN: .ASCIZ ‘TMK (XSTO) Failed To Set After READ REVERSE Into Tape Mark’ 
652 031677 127 162 151 TST29ID0: -ASCIZ ‘Write Tape Mark Retry’ 
653 .EVEN 
654 3° 
655 ; 
656 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
rd ;WRITE SUBSYSTEM MEMORY COMMAND 
3 
659 :- 
660 
661 031726 T29REST: 
662 031726 SAVREG ;SAVE THE REGISTERS 


663 031732 012701 026070' MOV @T29PACKET,R1 sSTART OF THE PACKET 


031736 
031742 
031746 


032112 


012721 
012721 
005021 
012721 
012721 
005021 


012721 
00502 


1 
012711 
012702 
012762 
005742 
020227 
001371 
000207 


012701 
012721 


140004 
026100' 


000012 
026112" 


000024 
000000 
000030 
177777 


000000 


026220' 
00000 
000000 
000000 


026112’ 


648: 


T29RT2: 


T29RTS: 


3° 


-SBTTL TEST 2: SKIP TAPE MARKS 


K8 


- ys ae TEST 1-8 TEST MACRO M1113 01-FEB-84 18:55 
1: WRITE TAPE MARK Retay 


#140004 ,(R1)>+ 
@T29DATA,(R1)> 
(R1)+ 

#10. eCR1)> 
OT29BFR,CR1)> 


@T29PK2 ,R1 
#140006 ,(R1)>+ 
@T29BF2,(R1)> 
CR1)-+ 
6..,(R1)> 
CR1)-+ 
@T29BF2,R1 

+ 


SEQ 101 


sWRITE ep dh MEM. WITH ACK, CvC*1 


sADDRESS 
SEXTENDED ADDRE 


sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 
sSELECT ORIVE ZERO (0) 


sNUMBER OF LOCATIONS TO BE a 
PALL ONES TO MESSAGE BUFFER 


sNEXT LOCATION 


sCHECK FOR END OF LOOP 
sKEEP GOING UNTIL DONE 


;RETURN 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 
sWRITE SUBSYSTEM MEM. WITH ACK,CVC=1, 
sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


;RETURN 


;SAVE THE REGISTERS 
sSTART OF THE PACKET 


sWRITE SUBSYSTEM MEM. WITH ACK, 


sADODRESS OF DATA BLOCK 
ADDRESS 


3EXTENDED 
;RETURN 


;SIZE OF DATA BLOCK IN BYTES 


L10036: 


; 
sTHIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS 
D ANO SKIP 


sFORWAR 


TAPE MARKS REVERSE COMMANDS. PROPER OPERATION 
sUNDER CONTROL OF ALL COMBINATIONS OF THE ENABLE SKIP TAPE MARKS 


TRAP 


sSTOP CESS) AND ENABLE TAPE MARKS STOP OFF BOT (ENB) BITS SPECIFIED 


sBY THE WRITE CHARACTERISTICS COMMAND. THE TEST CONSISTS OF THE 
sFOLLOWING SUBTESTS (FOR EACH SUBTEST, THE TAPE IS FIRST WRITTEN 


s;WITH AN APPROPRIATE SERIES OF DATA RECORDS AND/OR TAPE MARKS 
sAND/OR DOUBLE TAPE MARKS. 


‘ 
3 THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS 


—— DATA BLOCK 
sSIZE OF DATA BLOCK IN BYTES 


CsETST 


L8 


TEST 1 - HARDWARE "EST 1-8 TEST MACRO M1113 01-FEB-84 18:55 SEQ 102 
TEST 2: SKIP TAPE MARKS 

719 ; 

720 i- 

721 032114 BGNTST 
032114 T2:: 

722 032114 012737 006166' 002172’ MOV %EPRT1,EPRTSW sPRIMARY ERROR MESSAGE 

727 032122 012700 041021' MOV @TST3OID,RO sASCII MESSAGE TO IDENTIFY TEST 

728 032126 004737 016402’ JSR PC, TSTSETUP 300 INITIAL TEST SETUP 

34 032132 012737 000005 002210' MOV #5 ,LOOPCNT sPERFORM 5 ITERATIONS 

3¢ 

731 2 

732 :TEST 2, SUBTEST 1 

ia 

Q 

735 ; VERIFIES THAT A SKIP TAPE MARKS FORWARD COMMAND WITH 

736 :A TAPE MARK COUNT OF 1 OPERATES OPERATES PROPERLY. THE TAPE 

737 3IS FIRST REWOUND, THEN WRITTEN WIfH SEVERAL “FILES”; 

738 sEACH FILE CONSISTS OF A NUMBER OF DATA RECORDS 

739 sFOLLOWED BY A TAPE MARK. THE FINAL FILE IS 

740 3; TERMINATED BY A DOUBLE TAPE MARK. EACH DATA RECORD 

741 sCONTAINS A FILE NUMBER AND THE RECORD NUMBER WITHIN 

742 ;THE FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY 

743 sVERIFIED BY READING THE DATA. THE TAPE IS AGAIN 

744 sREWOUND AND A SERIES OF SKIP TAPE MARKS FORWARD 

745 sCOMMANDS ARE ISSUED AND THE RESULYS (TAPE STATUS ALERT 

746 } TERMINATION, TMK=1 STATUS, TAPE POSITION VIA READ 

747 sCOMMAND) IS CHECKED. PRIOR TO ISSUANCE OF EACH SKIP 

748 sCOMMAND, A WRITE CHARACTERISTICS COMMAND IS ISSUED TO 

749 ;SET UP THE ESS AND ENB CONTROL BITS. ALL 

750 sCOMBINATIONS OF ESS AND ENB ARE USED (00,01,10, 

751 311); OPERATION SHOULD BE THE SAME IN EACH CASE FOR 

752 ;THIS SUBTEST. 

753 3 

754 ; 

755 :- 

756 

757 032140 T3OLOOP : 

758 032140 BGNSUBS 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
032140 T2.1: 
032140 104402 TRAP Cs$BSUB 

759 032142 004737 041042: JSR PC, T3OREST :SET COMMAND PACKET 

760 032146 005037 036444' CLR T30FCN ;CLEAR FILE COUNTER 

761 032152 004737 041134’ JSR PC, T3ORT2 ;SET UP OTHER COMMAND PACKET 

762 032156 004737 041176’ JSR PC, T3ORTS ;SET UP OTHER COMMAND PACKET 

763 032162 012737 176750 036446’ MOV #65000. , TSODLY ;SET UP DELAY COUNTER 

764 032170 004737 015664’ 10$: JSR PC,SOFINIT 300 INITIALIZE ON CONTROLLER 

765 032174 103426 BCS 20$ ;8R IF INIT WAS OK 

766 032176 DELAY 250 ;DELAY ROUTINE CALL 
032176 012727 000250 MOV #250,(PC)+ 
032202 000000 «WORD O 
032204 013727 002116' MOV LSDLY,CPC)>+ 
032210 000000 -WORD O 
032212 005367 177772 DEC -6(PC) 
032216 001375 BNE .-4 
032220 005367 177756 DEC -22(PC) 
032224 001367 BNE .-20 

767 032226 005337 036446’ DEC T3ODLY ~ 3BUMP COUNTE 


R 
768 032232 001356 BNE 10$ . 3BR, IF MORE COUNTING TO DO 


teat ‘2; 


M8 


pitas ie ES OF TEST MACRO M1113 01-FEB-84 18:55 


SKT 


032310 


032312 
032316 
032320 
032322 
032326 
032332 
032332 
032334 
032336 
032340 
032342 
032342 


032344 
032350 
032352 


005237 002214' 
010001 


011724' 


013737 002174’ 
012704 036260' 


004737 010552’ 
103407 
005237 002214' 
010001 


104456 
000312 
005046' 
011724' 


104406 


004737 010704' 
103411 


010004 
016501 000002 
005237 002214' 


013701 036310’ 
010102 
052702 000002 


036300' 


INC FATFLG OR COUNT 

MOV RO,R1 SCONTENTS OF TSSm NEGISTER 

ERRDF ERRNO, SFIERR,SFIMSG IFATAL ERROR TSSR WAS NOT OK 

A 
. WORD 
WORD 
WORD 
20$: 
MOV UNITN, T30DSW ;SET UP UNIT 


MOV @TSOPACKET ,R4 


FPRAAAAAEREARAAAREAAAEREEAERASARAEERABAEASABASESAEEEEDEAEEERE 


3 
s ISSUE WRITE CHARACTERISTICS COMMAND 


é 
J PREAEAARERAAAAERESEARERERAAADEAAREARARAAREREREAESREREREERE 


JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 

BCS 23% ;BR, IF CONnOR ISSUED OK 

INC FATFLG OR COUNT 

MOV RO,R1 3 SAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC os 
- WORD 
. WORD 
. WORD 

23$: CKLOOP ;LOOP IF SELECTED 

TRAP 


§ PARAOEESEEEEAAEREEAREEAEORAAEERERAEEREREEEREREREEEREDEDE 
; 
sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


: 
{SRAAAAAAHARASAAAARASEAAAAEREASAREEEEAEERARAEAAEAEESADEEEER 


JSR Tati ;CALL TAPE REWIND COMMAND 

BCS ;BR, IF NO PROBLEM 

MOV ROR ;GET PACKET ADDRESS 

MOV TSSRCRS), R1 sGET STATUS REGISTER 

INC FATFL sERROR COUNT 

ERRHRD ERRNO. T3ORWN,PKTSSR ;REWIND NOT ACCEPTED = 
. WORD 
. WORD 

. WORD 
30$: CKLOOP ;LOOP IF SELECTED 


{ FESEEAAREAEEEEEAESEAERESEAEASEHEOAOEEAEREEAEAEAREEAREESEASEEERSE 


;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


° 
FAEAASERAAEEAEAAASESSESEAAEEASERESESEAEEAEASAAAAEERHRAEEEDEDEE 


MOV T3OBFR+6,R1 sPICK UP XSTO 
MOV R1,R2 ;SET UP EXPECTED 
BIS #BIT1,R2 sSET BOT BIT IN EXPECTED 


NUMBER 
sSUBROUTINE NEEDS PACKET ADDRESS 


SEQ 103 


CSERHRD 
202 


WRTMSG 
SFIMSG 


CsCLP1 


CSERHRD 
203 
T3ORWN 
PKTSSR 
CsCLP1 
- 7” 


? 


032420 


032530 
032536 
032542 
032546 
032552 


001406 
005237 


104456 
000314 
037631' 
015364’ 


104406 
012737 
012703 
013737 
012737 


012737 
012704 


012737 
012704 
010465 
004737 
016501 


002214’ 


000001 036444’ 


003116’ 036412’ 
003720 036416' 


140005 036410’ 
036410’ 
036444' 


150440 
000000 
016140' 


000002 
000200 


002214' 


141011 036410’ 
036410’ 
000000 


016140’ 
000002 


40$: 


64$: 
65$: 


N8 


R1,R2 
40$ 
FATFLG 


ERRNO, TSOBOT , EXPREC 


#1. ,T30FCN 
#1,R3 
FREE , T30WB 
#2000. , T30SZ 


SEQ 104 


s;DOES EXP = REC'D 
sBR, IF EQUAL (OK) 
sERROR COUNT 
sTAPE NOT AT BOT AFTER REWIND 
TRAP = 


«WORD T30BOT 
«WORD EXPREC 
sLOOP IF SELECTED 


TRAP 
sSET “FILE” COUNTER AT 1 DECIMAL 
;ONE RECORD PER “FILE” 
sSET UP PACKETS’'S WRITE BUFFER 
;SET RECORD SIZE AT 2000 BYTES 


CSsCLP1 


{AAPOR AAAEAAAAEESERERESEDEAEEEEEEEAAEEDRESEEDEREREEEEEAREESE 
; 
sWRITE DATA,ACK,CVC=1 COMMAND 


é 
J PSARASAAAAAASESESESEAEAEEEESEEESEAASAREREEEASEEAEECABEEEEEE 


70$: 


#140005, TS0PK3 
@TSOPK3,R4 
T30FCN,R2 
Re 

R3,R1 

R2,R1 
R1,@FREE 
R4, TSDBCRS) 
PC ,WAITF 
TSSRCRS),R1 
@SSR ,R2 


G 
ERRNO, TSOWDD ,PKTSSR 


R3 
R3,@21 
65$ 


sWRITE DATA,ACK,CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
sGET FILE COUNTER 
sMOVE TO UPPER BYTE 
s;GET RECORD COUNTER 
sFILE COUNTER IN UPPER, RECORD # LOW 
sMOV TO OUT PUT BUFFER 
; ISSUE COMMAND 
sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
;BR, IF OK 
OUNT 


;ERROR C 
;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
.WORD 205 
. WORD T3OWDD 
. WORD PKTSSR 


CsCLP1 


;LOOP IF SELECTED 


TRAP 
;COUNT THE RECORD COUNTER DOWN 
sAT 20 YET 
;BR, IF NOT AT 20 RECORDS WRITTEN 


FRHAAAAAEAAAAEEAAEREAHABEASAREEAREAEEEEASESSEASEERSAEEADARE 


; 
;WRITE TAPE MARK,ACK,CVC=1 COMMAND 


3 
{PHAR EAAAREAEAEARAEESAEAESEAEESEEDEAEBRAEERAEAAEEREEAAREEREBDAS 


#141011, TSOPK3 
@T3OPK3 ,R4 
R4,TSOBCRS) 

PC ,WALTF 
TSSRCRS),R1 


;WRITE TAPE MARK,ACK,CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 

3 ISSUE COMMAND 

;WAIT FOR SSR TO SET 

sPICK UP TSSR 


TEST 


B9 
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032556 
032562 


032724 


012737 


016501 


000200 


002214' 


036444' 
036444' 


141011 
036410’ 
000000 
016140’ 


000002 
000200 


010704' 


000002 
002214’ 


036410' 


MOV @SSR ,R2 

CMP R1,Re2 

BEQ 160% 

INC FATFLG 

ERRHRD ERRNO, TSOWOC ,PKTSSR 
160%: CKLOOP 

INC TSOFCN 

CMP TSOF CN, 06 

BNE 64% 


FOSOSASHHESASSHASSEHASEHSEESEEEEEEASEADEEEHEOEEEHHHEEEEOESE 


: 
sWRITE TAPE MARK,ACK,CvC*=1 COMMAND 


3 
FS SSSHSAHHSSHHESOSSESHESOEHSHEASHSEHEEEHEAEHHEHESEEEEEOEHEOEESE 


eteseek’ TSOPKS 
@TSOPKS,R4 


MOV 
MOV R4, TSOBCRS) 
JSR PC ,WAITF 
MOV TSSR(RS) R1 
MOV @SSR ,R2 
CMP R1,R2 
BEQ 165% 

FAT 


INC FLG 
ERRHRD ERRNO, TSOWDC ,PKTSSR 


165%: CKLOOP 


SEQ 105 
SET UP EXPECTED (SSR ONLY) 
}WAS STATUS GOOD 
1BR, IF TERMINATION WAS GOOD 
\TSSR NOT CORRECT AFTER WRT TAPE Ht. 
TRAP CSERHRD 
WORD 206 
“WORD  T3OWOC 
"WORD PKTSSR 
,LOOP IF SELECTED 
TRAP CSCLP1 
;COUNT THE “FILE” COUNTER DOWN 
}WRITE 5S FILE TO TAPE 
i8R, IF NOT AT S FILES WRITTEN 
{WRITE TAPE MARK,ACK,CVC*1 COMMAND 


sSET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sPICK UP TSSR 

3SET UP EXPECTED (SSR ONLY) 
3WAS STATUS GOOD 

368R, IF TERMINATION WAS GOOD 


sERROR COUNT 
sTSSR NOT CORRECT AFTER WRT TAPE M. 


FASSHSSSSNSSASSSSSSSHEHESSESHHHSEHESHEEHEEHEHEEHHHEEEEOEHEOE 


3 
sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


8 
8 906006 666646066866660666660666660006666060600660606086646 6060006686 


JSR PC ,REWIND 
ecs 1708 

MOV RO,R4 

MOV TSSRCRS),R1 
I FATFLG 


NC 
ERRHRD ERRNO, TSORWN,PKTSSR 


1708; 


CKLOOP ' 


TRAP CSERHRO 
-WORD 207 
-WORD T30WOC 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CsCLPs 

sCALL TAPE REWIND COMMANDO 

sB8R, IF NO PROBLEM 

sGET PACKET ADDRESS 

sGET STATUS REGISTER 

sERROR COUNT 

sREWIND NOT ACCEPTED 
TRAP CSERHRD 
«WORD 208 
-WORD TS3ORWN 
«WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CscLPL 


~ 
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LOSAOAHEHHEHEASASEEAEAEEHEHEEEEAEEEOAEEHEEEEHEEREECEEOEOOOE 


é 
1GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


013701 


011724° 
104406 


012737 
012737 
012704 
010465 
012737 
004737 
016501 
032701 
001017 


036310' 
000002 


002214" 


036426' 
002174' 
036276' 
036260' 


036300' 


0105S2' 
002214' 


141010 036410’ 
000001 036412’ 
036410' 


000000 
176750 036446' 


3 
LOMAS HEHAHEAAEESHESHEHEEEEEEEEEEEEOREEEEOOEEHEEEOEEEEOE 


MOV TSOBFR+6,R1 

MOV 1,R2 

BIS @B1T1,R2 

CMP R1,R2 

BEQ 180% 

INC FATFLG 

ERRHRD ERRNO, TSOBOT ,EXPREC 
160%: CKLOOP 

MOV @TSOIMV RS 

MOV UNITN, TSO0SW 
1628: MOV (R3), TSOETM 

MOV @TSOPACKET ,R4 


SEQ 106 
sPICK UP XxSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
s00ES EXP = REC'D 
sBR, IF EQUAL (OK) 
sERROR COUNT 
s TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
«WORD 209 
«WORD T3OB0T 
«WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 


sSET UP POINTER TO COMMAND TABLE 
sSET UP UNIT NUMBER 

sGET NEXT COMMAND 

sSUBROUTINE NEEDS PACKET ADDRESS 


FSSAASHHASSHHSSHHHSSHAEEHESESHEHEEHEEHESEHHEEHEHEEHHHEEEOEE 


3 
sISSUE WRITE CHARACTERISTICS COMMAND 


é 
FOSSSASSSSSHSSSHSHSSSHSSSSEHSHSHOSSSEHEHEHEHHHEEHEHEEEEEEEE 


JSR PC ,WRICHR 
ecs 188% 

INC FATFLG 

MO 


Vv RO,R1 
ERRHRD ERRNO,WRITMSG, SF IMSG 


1883; CkLOOP 


s ISSUE WRITE CHARACTERISTICS 

38R, IF COMMAND ISSUED OK 
sERROR COUNT 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC “a? 


CSERHRD 
«WORD 210 
-WORD WRTMSG 
«WORD SFIMSG 
sLOOP IF SELECTED 
TRAP CscLP1 


FSSSSe SHESOSSSSSSESSSESHSESHEHSEHHEHEEHSEHSHEEHEHHSHHHEAEEHEOOE 


; 
sSKIP TAPE MARK,ACK,CvC=1 COMMAND 


é 
FESSSHSSSHSSS*SHSSHEHOSSHSEESSHOSESEESSHEHEEEEHHEHHEEHHEOEEEHODEED 


MOV #141010, TS0PKS 

MOV #1, T30RB6 

MOV @TSOPKS,R4 
189%: MOV R4, TSDBCRS) 

MOV #65000. , TS0DL 1 
1908: JSR PC ,WAITF 

MOV TSSRC(RS),R1 

BIT @SSR,R1 

BNE 1918 


sSKIP TAPE MARK ,ACK,CVC*1 COMMAND 
sSET UP NUMBER TO SKIP 
sSET UP R4 ding PACKET ADORESS 


3 

sWAIT FOR SSR TO SET 
sPICK UP TSSR 

sIS SSR SET YET 

sBR, IF SSR IS SET 


tE8t 3 


978 


D9 
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033102 DELAY 250 sCALL DELAY ROUTINE 
033102 012727 000250 MOV #250,(PC)> 
033106 000000 «WORD O 
033110 013727 002116' MOV LSOLY,CPC)> 
033114 . WORD 
033116 005367 177772 DEC “6CPC) 
033122 001375 BNE 
033124 005367 177756 EC “29¢ PC) 
033130 001367 BNE .-20 
033132 005337 036446’ DEC T3ODLY sBUMP DELAY ROUTINE 
033136 001352 BNE 1908 sBR, IF MORE DELAY TO GO 
033140 012702 000200 191$: MOV @SSR,R2 sSET UP EXPECTED (SSR ONLY) 
033144 020102 CMP R1,R2 sWAS STATUS GOOD 
033146 001406 BEG 192% iBR, IF TERMINATION WAS GOOD 
033150 005237 002214' INC FATFLG sERROR COUNT 
033154 ERRHRD ERRNO, TSOSKM,PKTSSR sTSSR NOT CORRECT AFTER SKIP TAPE M. 
033154 104456 TRAP CSERHRD 
033156 000323 WORD 211 
033160 036704' «WORD T3OSKM 
033162 011736’ WORD PKTSSR 
033164 1928: CKLOOP sLOOP IF SELECTED 
033164 104406 TRAP CsCLP1 
J SPSHEHSHHASSHSSEASHSASHASESEEASASEHAASESEEHEESEHEAESEHEHHEEEES 
; 
sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
; 
FSSSAASRSESSSASSHASSHASAHSASAESHEAEHESAEEAKEHEDEOEHEEEHEEOEOEEED 
033166 013701 036310’ MOV TSOBFR+6,R1 sPICK UP XSTO 
033172 010102 MOV R1,Re2 sSET UP EXPECTED 
033174 052702 100000 BIS #B1T15,R2 sSET TMK BIT IN EXPECTED 
033200 020102 CMP R1,R2 sD0ES EXP = REC'D 
033202 001406 BEQ 195% sBR, IF EQUAL (OK) 
033204 005237 002214' INC FATFLG sERROR COUNT 
033210 ERRHRD ERRNO, TSOTMK ,EXPREC 3 TMK NOT SET AFTER WRT TAPE MARK 
033210 104456 TRAP CSERHRD 
033212 000324 «WORD 212 
033214 040304: «WORD TSOTMK 
033216 015364’ «WORD EXPREC 
033220 195%: CKLOOP sLOOP IF SELECTED 
033220 104406 TRAP CsCLPl 
033222 012700 177777 MOV @177777,RO sVALUE TO WRITTEN TO MEMORY 
033226 004737 017314’ JSR PC .FILLMEM sFILL MEM WITH ALL ONES 
033232 013737 003116' 036412’ MOV FREE , TSORB sSTARTING READ BUFFER ADDRESS 
F SSSOSSEHSSSHHSASEHESESESSESESSEHSHASEHESEHESEHEHHHEEHEOHESEEEEOEE 
; 
sREAC FORWARD,ACK,CVC=1 COMMAND 
; 
$998 60060466066066066664666666606660660660606606666066066060660600060606 
033240 012737 140001 036410’ MOV #140001, TSOPKS sREAD FORWARD,ACK,CVC*1 COMMAND 
033246 012704 036410’ MOV @T3OPK3,R4 sSET UP R4 WITH PACKET ADDRESS 
033252 012737 003720 036416’ MOV #2000. , T30SZ sSET UP RECORD SIZE IN PACKET 
033260 010465 000000 MOV R4, TSOBCRS) s ISSUE COMMAND 
033264 004737 016140’ JSR PC ,WALTF sWAIT FOR SSR TO SET 
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016501 


000002 
000200 


002214’ 


147570 
177777 


002214’ 


001001 
147532 


002214' 


010704' 


000002 
002214’ 


2008: 


2208: 


228%: CKLOOP 


2 


18:55 
TSSRC(RS),R1 
@SSR,R2 
R1,R2 
2008 


FATFLG 
ERRNO, TSORDF ,PKTSSR 


OFREE ,R1 
@177777,R2 
R1,R2 

2208 


FATFLG 
ERRNO, TSODTR,EXPREC 


#1001 ,R2 
@FREE ,R1 


FATFLG 
ERRNO, TSOPTB ,EXPREC 


SEQ 108 


sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
sBR, IF OK 


sERROR COUNT 
sTSSR INCORRECT AFTER ae ty 


CSERHRD 
«WORD 213 
«WORD T 
«WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 


sFIRST LOC IN READ BUFFER 
sEXPECTED IF NO DATA TRANS. 
sOID ANY DATA GET TRANSFERRED 
sBR, IF NO DATA TRANS (GOOD) 


sERROR COUNT 
sDATA TRANSFERRED ON READ TAPE MARK 
TRAP CSERHRD 
-WORD 214 
«WORD TS3ODTR 
-WORD EXPREC 


sLOOP IF SELECTED 
CsCLP1 


TRAP 
sSET UP RECORD NUMBER EXPECTED (FILE 2) 
;GET INFO FROM BUFFER 
sARE THEY EQUAL 
sBR, IF EQUAL (OK) 


sERROR COUNT 
sRECORD POSITION WAS NOT CORRECT 


F SSSSASSSSHHASSSSHEASSHSHEHEEESHSEASESEHEHEEEHEHEEEEEESEEEEEE 


3 
sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


3 
FOSSAHSSSSSHASSHHSSHSHSESEHHHESSEHSEASHESESSEHEHHHEESHESEEHEKEEEODE 


ERRHRD 


230%: CKLOOP 


PC ,REWIND 
230% 


RO,R4 

TSSRCRS),R1 

FATFLG 

ERRNO, TSORWN,PKTSSR 


TRAP CSERHRD 
«WORD 215 
-WORD TS3OPTB 
-WORD EXPREC 

sLOOP IF SELECTED 
TRAP CsCLP1 

sCALL TAPE REWIND COMMAND 

;BR, IF NO PROBLEM 

sSAVE PACKET ADDRESS 

sGET TSSR STATUS 

sERROR COUNT 

sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 216 
-WORD TSORWN 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CsCLP1 


FPSHSSHEHEHSHEASEHSSESESEHEEEEESs SHEHHEHESEAEEESSEHSSEHHEHEAEEHEEE 


TEST 1 


1072 


033570 
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013701 


103426 


F9 
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036310’ 
000002 


002214' 


177777 
032774' 


002214’ 0900017 
017074' 


041042’ 
036444 ' 
041134’ 
041176’ 
176750 036446' 
015664' 


SEQ 109 


a 
sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


; 
J PAARARRAAHAAAGAASARERAEADERADASASEEEAEAEEEEAEADEEDADEDEEEESD 


MOV T3OBFR+6,R1 
Re 


MOV Rl, 
BIS oBIT1,R2 
.? Ri, 
BEQ 2403 
FA 


INC TFLG 
ERRHRD ERRNO, TSOB0T ,EXPREC 


240%: CKLOOP 


TST CR3)+ 
MOV (R3),R1 
CMP R1,0177777 


BEQ 3308 

JMP 182$ 
3308: CKLOOP 

ENOSUB 


CMP FATFLG,@15. 
999% 


JSR PC ,.CKDROP 
999%: 


| id 
é 
sTEST 2, SUBTEST 2 


sPICK UP XSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
sBR, IF EQUAL (OK) 

sERROR COUNT 
sTAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRD 


"wORD T3OBOT 
‘WORD EXPREC 


CsCLP1 


sLOOP IF SELECTED 


sPOINT Ls NEXT POSITION 
sGET NEXT COMMAND ETC. 
sEND OF TABLE MARKER 
3BR, IF AT END OF TABLE 
JUMP TO MORE COMMANDS TO 00 
sLOOP IF SELECTED 
CsCLP1 


TRAP 
g<eeeceeceee END SUBTEST >>>>>>>>>>> 
L10044: 


TRAP CsESUB 
sIS ERROR COUNT AT 25 
3BR, IF LESS THAN 25 
;TRY TO OROP THE UNIT 


5 

sVERIFIES THAT SKIP TAPE MARKS COMMANDS WITH A TAPE 
sMARK COUNT GREATER THAN 1 OPERATE PROPERLY. COUNTS 
sOF 2,3,8,64,256, AND 512 ARE TESTED. THE 

sTESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 


; 
3 
id 


BGNSUB 

JSR PC, TSOREST 

CLR T30F CN 

JSR PC, T3ORT2 

JSR PC, TSORTS 

MOV #65000. , TSODLY 
10$: JSR PC, SOF INIT 

BcS 20% 

DELAY 250 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
Te. 


TRAP CsBSUB 

sSET COMMAND PACKET 

sCLEAR FILE COUNTER 

sSET UP OTHER COMMAND PACKET 

sSET UP OTHER COMMAND PACKET 

sSET UP DELAY COUNTER 

300 INITIALIZE ON CONTROLLER 

3BR IF INIT WAS OK 

sDELAY ROUTINE CALL 


TEST 1_- HARDWARE TEST 


TEST 2: SKIP TAPE MARK 


1165 


033570 
033574 


033702 


033704 
033710 
033712 
033714 
033720 
033724 
033724 
033726 
033730 
033732 
033734 
033734 


012727 
000000 


011724' 


013737 
012704 


011724' 
104406 


004737 
103411 
010004 
016501 
005237 


G9 
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000250 
002116' 
177772 
177756 
036446' 
002214' 


002174' 
036260’ 


010552’ 
002214' 


010704: 


000002 
002214' 


036300' 


BNE 10$ 
INC FATFLG 
MOV 0 


RO,R1 
ERRDF ERRNO, SFIERR,SFIMSG 


208: 
MOV UNITN, T3O0SW 
MOV @TSOPACKET ,R4 


2 
sISSUE WRITE CHARACTERISTICS COMMAND 


sBUMP COUNTER 
sBR, IF MORE COUNTING TO DO 
sERROR COUNT 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 
. WORD 


sSET UP UNIT 


SEQ 110 


enarane 
ene 


NUMBER 
sSUBROUTINE NEEDS PACKET ADORESS 


FSSHASAAHSSSASHSSSSSHASEESAEASESEASDEAESEAAEEEEEEAESEEEEEEEEO 


a 
F SSOHSSASSAHEASHHSESEHSESEEHAEEESEHAEEEHAEEEEEEEEHEEEEEEEEEES 


JSR PC ,,WRTCHR 
23% 


Bcs 
INC FATFLG 
MOV RO,R1 


ERRHRD ERRNO,WRTMSG, SF IMSG 


23%: CKLOOP 


sISSUE WRITE CHARACTERISTICS 

3;B8R, IF COMMAND ISSUED OK 
sERROR COUNT 

;SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC oy 


- WORD 
- WORD 
- WORD 


TRAP 


;LOOP IF SELECTED 


FSSSSSSHSSSSHESSHASSHSESHSSEHEHEESHHHEEEEEEHEHEHEHEEEOEEEEEEEEE 


i 
sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


FPSSSSSSESSSSSESOSSSESEESESSEHEHEHEEEEEEEAEEEHEEHEEEEEEEEEDEE 


JSR PC ,REWINOD 
BcS 308 

MOV RO,R4 

MOV TSSRCRS),R1 


INC FATFLG 
ERRHRD ERRNO, TSORWN,PKTSSR 


30%: CKLOOP 


sCALL TAPE REWIND COMMAND 

s6R, IF NO PROBLEM 

;GET PACKET ADORESS 

sGET STATUS REGISTER 
sERROR COUNT 

sREWIND NOT ACCEPTED 


sLOOP IF SELECTED 


CscLP1 


CSERHRD 
220 
T30RWN 
PKTSSR 


CsCLPl 


H9 
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FSOSSASSHHESEEHHHAESHSEHEEEEEEEEEEAEEEHASHEEESEOKEHREEREEEDEEE 


& 
sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


013701 


012737 


012737 


036310' 
000002 


002214’ 


002214’ 


000021 


036410' 


SEQ 111 


F PSSASHOHHHSEHEESSESAHESESESEEEEEEAEEEEEHEEEEEEEEEHEEKEEEEES 


40%: 


648: 
65%: 


MOV TSOBFR+6,R1 
MOV R1,R2 
BIS @BIT1,R2 
R1,R2 
BEQ 40% 
NC FATFLG 


CKLOOP 
MOV #1. ,T3SOFCN 
MOV #1,R3 


MOV #20. ,T30SZ 


sPICK UP XSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC’D 
:8R, IF EQUAL (OK) 

sERROR COUNT 
3 TAPE Not AT BOT AFTER REWIND 

TRAP CSERHRD 


- WORD 
«WORD 73080T 
«WORD EXPREC 


CsCLP1 


s;LOOP IF SELECTED 


TRAP 
3SET “FILE” COUNTER AT 1 DECIMAL 
sONE RECORD PER “FILE” 
sSET UP PACKETS’S WRITE BUFFER 
sSET RECORD SIZE AT 2000 BYTES 


Perr rirririirrrririiririrrrrrirrirriiitrtitiitT 
3 
sWRITE DATA,ACK,CVC*1 COMMAND 


é 
§ SSSSSSEEEHOSAESEEEESAEESSHEAEEEEESEEEEEEHEEEEEEEEEEEEEEEE 


708: 


MOV #140005, TSOPK 


MOV TSOFCN,R2 
SWAB R2 

MOV R3,R1 

ADD R2,R1 

MOV R1, QF REE 
MOV R4, TSOB(RS) 
JSR PC ,WAITF 
MOV TSSRC(RS),R1I 
MOV @SSR ,R2 

CMP R1,R2 

BEQ 70$% 


INC FATFLG 
ERRHRD ERRNO, T30WDD,PKTSSR 


CKLOOP 

INC R3 

CMP R3,021 
BNE 65$ 


sWRITE DATA,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sGET FILE COUNTER 
sMOVE TO UPPER BYTE 
sGET RECORD COUNTER 
sFILE COUNTER IN UPPER, RECORD @ LOW 
sMOV TO OUT PUT BUFFER 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
;SET UP EXPECTED 
sARE THEY EQUAL 
sBR, IF OK 
OUNT 


sERROR C 
sTSSR INCORRECT AFTER Se 


sLOOP IF SELECTED 


sCOUNT THE RECORD COUNTER poun 
sAT 20 YET 
;BR, IF NOT AT 20 RECORDS WRITTEN 


FPSSHSEHHSSHEHESHEEEEESEESEHHEEEEES! SCHHEEEHHHEHEHEHHEEEEHHREEEOEES 


19 
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SEQ 112 
TEST 2: SKIP TAPE MARKS , 


1219 3 
aoas ;sWRITE TAPE MARK,ACK,CVC*=1 COMMAND 
3 
1222 FPOSHSASASRHAEHEEERESEEEEFEEEEEEEEEEEEEEEEEEEHEEEEEEEEEEHEEES 
1223 
1224 034122 012737 141011 036410’ MOV #141011, TSOPK3 sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
1225 034130 012704 036410' MOV @T3OPK3,R4 sSET UP R4 WITH PACKET ADDRESS 
1226 034134 010465 000000 MOV R4,TSOB(RS) s ISSUE COMMAND 
1227 034140 004737 016140’ JSR PC ,WAITF sWAIT FOR SSR TO SET 
1228 034144 016501 000002 MOV TSSRC(RS),R1 sPICK UP TSSR 
1229 034150 012702 000200 MOV @SSR ,R2 :SET UP EXPECTED (SSR ONLY) 
1230 034154 020102 CMP R1,R2 3;WAS STATUS GOOD 
1231 034156 001406 BEG 160$ ;BR, IF TERMINATION WAS GOOD 
1232 034160 005237 002214 INC FATFLG sERROR COUNT 
1236 034164 ERRHRD ERRNO, TSOWDC,PKTSSR :TSSR NOT CORRECT AFTER WRT TAPE m. 
034164 104456 TRAP CSERHRD 
034166 000337 . WORD 223 
034170 040152’ . WORD T30WDC 
034172 011736’ . WORD PKTSSR 
1237 034174 1608: CKLOOP ;LOOP IF SELECTED 
034174 104406 TRAP CSsCLPi 
1238 034176 005237 036444’ INC T3OF CN sCOUNT THE “FILE” COUNTER DOWN 
1239 034202 023727 036444' 000031 CMP T3OFCN, 025. sWRITE 25 FILES TO TAPE 
ty 034210 001273 BNE 648 3;8R, IF NOT AT 25 FILES WRITTEN 
1242 § 9OO0O6606000060006600606060606660066006660666660606000006066006066 
1243 : 
on sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
: 
1246 J PPAAAAAASASAESSEHEESEEEEEEEHEEEEEHEHEEHEEOEEOOEEEEDEDEDEE 
1247 
1248 034212 012737 141011 036410’ MOV #141011, TSOPK3 sWRITE TAPE MARK,ACK,CVC*1 COMMAND 
1249 034220 012704 036410' MOV @TSOPK3,R4 :SET UP R4 WITH PACKET ADDRESS 
1250 034224 010465 000000 MOV R4, TSOBCRS) ; ISSUE COMMAND 
1251 034230 004737 016140' JSR PC ,WALTF sWAIT FOR SSR TO SET 
1252 034234 016501 000002 MOV TSSRCRS),R1 sPICK UP TSSR 
1253 034240 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED (SSR ONLY) 
1254 034244 020102 CMP R1,R2 3WAS STATUS GOOD 
1255 034246 001406 BEQ 1658 ;68R, IF TERMINATION WAS GOOD 
1256 034250 005237 002214’ INC FATFLG sERROR COUNT 
1260 034254 ERRHRD ERRNO, T3OWOC,PKTSSR :TSSR NOT CORRECT AFTER WRT TAPE M™. 
034254 104456 TRAP CSERHRD 
034256 000340 . WORD 224 
034260 040152’ . WORD T3OWDC 
034262 011736' . WORD PKTSSR 
1261 034264 1658: CKLOOP ;LOOP IF SELECTED 
— 034264 104406 TRAP CSCLP1 
ao PPC UV ITIL itisiirriririitititTirritrrtiiTiitiTTTiTTTTyTtT 
G 
pore s ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
3 
1267 FOOSE EESOEEAEEESEEOSESEEEDEREEHEHEEHEOEHODHEOEEEEEEEEEE 
1268 
1269 034266 004737 010704: JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
1270 034272 103411 BCS 170$ ;BR, IF NO PROBLEM 
1271 034274 010004 MOV RO,R4 ;GET PACKET ADDRESS 


JI 
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TEST 2: SKIP TAPE MARKS 
1272 034276 016501 000002 MOV TSSRCRS),R1 sGET ar REGISTER 
1273 034302 005237 002214’ INC FATFLG RROR COUNT 
1277 034306 ERRHRD ERRNO, TSORWN,PKTSSR sREWIND NOT ACCEPTED 
034306 104456 TRAP CSERHRD 
034310 000341 WORD 225 
034312 040030’ WORD T3ORWN 
034314 011736’ WORD PKTSSR 
1278 034316 170$: CKLOOP sLOOP IF SELECTED 
.270 034316 104406 TRAP CsCLP1 
1280 PUP rrr rrrrrririviriiiiiriiriiriiiiitiiititiitT tty) 
1281 ; 
ost sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
3 
1284 J POMS EEEEEEEEEEEEEEEEEEDEEEEEEEEEESEEEEEEEEDEEREEOEES 
1285 
1286 034320 013701 036310 MOV T3OBFR+6,R1 sPICK UP xSTO 
1287 034324 010102 MOV R1,R2 ;SET UP EXPECTED 
1288 034326 052702 000002 BIS oBIT1,R2 ;SET BOT BIT IN EXPECTED 
1289 034332 020102 CMP R1,R2 ;D0ES EXP = REC'D 
1290 034334 001406 BEQ 180$ sBR, IF EQUAL (OK) 
1291 034336 005237 002214’ INC FATFLG s;ERROR COUNT 
1295 034342 ERRHRD ERRNO, TSOBOT,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
034342 104456 TRAP CSERHRD 
034344 000342 «WORD 226 
034346 037631' «WORD T30B0T 
034350 015364’ -WORD  EXPREC 
1296 034352 160%: CKLOOP ;LOOP IF SELECTED 
034352 104406 TRAP CsCLPL 
1297 034354 012737 000002 036444’ MOV #2, T30FCN sSET TO NUMBER OF SKIP “FILES” 
1298 034362 012703 036426’ MOV @TSOIMV RS ;SET UP POINTER TO COMMAND TABLE 
1299 034366 013737 002174’ 036300’ MOV UNITN, T300SW ;SET UP UNIT NUMBER 
1300 034374 011337 036276’ 182s: MOV (R3), TSOETM ;GET NEXT COMMAND 
rees 034400 012704 036260’ MOV @T3OPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
baes Perri rrr rirrriiiririririvitiirrrrirrrritttttitTTty 
é 
ieee s ISSUE WRITE CHARACTERISTICS COMMAND 
; 
pod UPI iirrririiiviriiriiitrirrriiiititiii ttt TTT yy} 
1309 034404 004737 010552’ JSR PC .WRTICHR sISSVE WRITE CHARACTERISTICS 
1310 034410 103407 BcS 188% ;BR, IF COMMAND ISSUED OK 
1311 034412 005237 002214' INC FATFLG sERROR COUNT 
1315 034416 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
1316 034420 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
034420 104456 TRAP CSERHRD 
034422 000343 -WORD 227 
034424 005046’ -WORD WRTMSG 
034426 011724’ «WORD SF IMSG 
1317 0344350 188%: CKLOOP sLOOP IF SELECTED 
sseb 034430 104406 TRAP CsCLP1 
4th PUPP rrr iririiiitirivirrrtrritittiitttit 
1320 ; 
fot ;SKIP TAPE MARK,ACK,CVC=1 COMMAND 
3 
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TEST 2: SKIP TAPE MARKS = 

1323 FASHHSASHARAEAREARAAEESAAEAESALASEAAEESEEASAREEESASEEAEREEEAEDRES 

1324 

1325 034432 012737 141010 036410° MOV #141010, T30PK3 sSKIP TAPE MARK,ACK,CVC=1 COMMAND 

1326 034440 013737 036444' 036412’ MOV T3OFCN, T3ORB ;SET UP NUMBER TO SKIP 

1327 034446 012704 036410° MOV @T30PK3,R4 sSET UP R4 WITH PACKET ADDRESS 

1328 034452 010465 189$: MOV R4, TSOBCRS) s ISSUE COMMAND 

1329 034456 012737 176750 036446' MOV #65000. , TSODLY ;SET UP DELAY COUNTER 

1330 034464 004737 016140° 190$: JSR PC, WAITF ;WAIT FOR SSR TO SET 

1331 034479 016501 000002 MOV TSSR(RS),R1 ;PICK UP TSSR 

1332 034474 032701 000200 BIT oSSR,R1 :IS SSR SET YET 

1333 034500 001017 BNE 1918 :BR, IF SSR IS SET 

1334 034502 DELAY 250 :CALL DELAY ROUTINE 
034502 012727 000250 MOV #250,(PC)-+ 
034506 .WORD 0 
034510 013727 002116’ MOV LSOLY,C(PC)- 
034514 .WORD 0 
034516 005367 177772 DEC -6(PC) 
034522 001375 BNE .-4 
034524 005367 177756 DEC -22(PC) 
034530 001367 BNE -20 

1335 034532 005337 036446' DEC T3ODLY ;BUMP DELAY ROUTINE 

1336 034536 001352 BNE 190$ ;BR, IF MORE DELAY TO GO 

1337 034540 012702 000200 1918: MOV @SSR,R2 ;SET UP EXPECTED (SSR ONLY) 

1338 034544 020102 CMP R1,R2 ;WAS STATUS GOOD 

1339 034546 001406 BEQ 192$ ;BR, IF TERMINATION WAS GOOD 

1340 034550 005237 002214' INC FATFLG ;ERROR COUNT 

1344 034554 ERRHRD ERRNO, T30SKM,PKTSSR ;TSSR NOT CORRECT AFTER SKIP TAPE M. 
034554 104456 TRAP CSERHRD 
034556 000344 .WORD 228 
034560 036704‘ -WORD T3OSKM 
034562 011736' .WORD PKTSSR 

1345 034564 192$:  CKLOOP ;LOOP IF SELECTED 

wl 034564 104406 TRAP = CSCLP1 

pd J PSHESASESASASEESESEAASEAEASASESEAEEEEEEEEAAESEEEEAEREOEEEEDSE 

1348 ; 

1349 ;GET EXTENDED STATUS REGISTER ZERO (xSTO) FROM MESSAGE BUFFER 

Hy 

et J PFPSSAASAASEASEAASEAEESAASAEASESLEAAEEEEEAEEEHREASEEKELEEEOEEEESD 

1353 034566 013701 036310° MOV T3OBFR+6,R1 ;PICK UP XSTO 

1354 034572 010102 MOV R1,R2 3SET UP EXPECTED 

1355 034574 052702 100000 BIS oBIT15,R2 ;SET TMK BIT IN EXPECTED 

1356 034600 020102 CMP R1,R2 ;DOES EXP = REC'D 

1357 034602 001406 BEQ 195$ ;BR, IF EQUAL (OK) 

1358 034604 005237 002214' INC FATFLG ;ERROR COUNT 

1362 034610 ERRHRD ERRNO, TSOTMK,EXPREC ;TMK NOT SET AFTER WRT TAPE MARK 
034610 104456 TRAP = CSERHRD 
034612 000345 .WORD 229 
034614 040304' “WORD T3OTMK 
034616 015364’ .WORD EXPREC 

1363 034620 195$:  CKLOOP ;LOOP IF SELECTED 
034620 104406 TRAP = CSCLP1 

1364 034622 012700 177777 MOV 0177777,RO :VALUE TO WRITTEN TO MEMORY 

1365 034626 004737 017314° JSR PC ,FILLMEM ;FILL MEM WITH ALL ONES 

1366 034632 013737 003116’ 036412: MOV FREE, T3ORB ;STARTING READ BUFFER ADDRESS 


TEST 1 
TEST 2 
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SEQ 115 


J PPAEASOEERERAAEAEEESEESAEEAAADAEEEAEDAEEEAEEEEEEEREDEEREEE 
3 
sREAD FORWARD,ACK,CVC=1 COMMAND 


3 
FARAASAAAAHAAAAAEHAASADESARERAREREREEABAEEELASEAEDADEAELEDRE 


012737 140001 036410’ MOV 
012704 036410' MOV 
012737 000024 036416’ MOV 
010465 000000 MOV 
004737 016140’ JSR 
016501 000002 MOV 
012702 000200 MOV 
020102 CMP 
001406 BEQ 
005237 002214' 
ERRHRD 
104456 
000346 
037203’ 
011736’ 
200$: CKLOOP 
104406 
017701 146170 MOV 
012702 177777 MOV 
020102 CMP 
001006 BNE 
005237 002214' 
ERRHRD 
104456 
000347 
040660' 
015364’ 
220$: CKLOOP 
104406 
013702 036444' MOV 
005202 INC 
000302 SWAB 
052702 000001 BIS 
017701 146122 MOV 
020201 CMP 
001406 BEQ 
005237 002214' 
ERRHRD 
104456 
000350 
037032’ 
015364' 
228%: CKLOOP 
104406 


#140001 , TSOPK3 


@SSR ,R2 


G 
ERRNO, TSORDF ,PKTSSR 


@FREE ,R1 

0177777,R2 

R1,R2 

220% 

FATFLG 

ERRNO, TSODTR, EXPREC 


T30FCN,R2 
R2 


G 
ERRNO, T30PTB,EXPREC 


sREAD FORWARD,ACK,CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

:WAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

3SET UP EXPECTED 

sARE THEY EQUAL 


sBR, IF OK 
sERROR COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 230 
«WORD T3ORODF 
-WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 


sFIRST LOC IN READ BUFFER 
sEXPECTED IF NO DATA TRANS. 
s0ID ANY DATA GET TRANSFERRED 
3BR, IF NO DATA TRANS (GOOD) 


sERROR COUNT 
sDATA TRANSFERRED ON READ TAPE MARK 
TRAP CSERHRD 
«WORD 231 
-WORD T30DTR 


-WORD EXPREC 
;LOOP IF SELECTED 


TRAP CsCLP1 

sGET NUMBER OF SKIPS 
;SET TO CORRECT FILE VALUE 
;SWAP BYTE HALVES 
3SET FOR RECORD 01 
;GET INFO FROM BUFFER 
sARE THEY EQUAL 
sBR, IF EQUAL (OK) 

sERROR COUNT 
sRECORD POSITION WAS cael” ~~ amail 


2 
-WORD T30PTB 
-WORD EXPREC 


TRAP CsCLP1 


;LOOP IF SELECTED 


FSSSAEAHERAEASEASEAASEASESAEEAABRASEEEEAEAEEEAREAADEDEALEDRDAEDA 


3 
sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


; 
{FAAS EEAEAEEEAEREAREEAEAAEEASDEORSAREEEAEEAREEOERADSEDADEE 
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035016 
035022 


SEQ 116 


CsCLP1 


CSERHRD 
234 


T30B0T 
EXPREC 


CSCLP1 


CsCLP1 


CsESUB 


004737 010704: JSR PC ,REWIND sCALL TAPE see COMMAND 
103411 BCS 2308 ;6R, IF NO PROBLE 
010004 MOV RO,R4 ; SAVE PACKET ADDRESS 
016501 000002 MOV TSSR(RS), R1 ;GET TSSR STATUS 
005237 002214’ INC FATFLG sERROR COUNT 
ERRHRD ERRNO, T3ORWN,PKTSSR sREWIND NOT ACCEPTED 
104456 TRAP 
000351 «WORD 
040030 - WORD 
011736' - WORD 
2308: CKLOOP ;LOOP IF SELECTED 
104406 TRAP 
POT TTT TTT Ir ir rrr rer rreririrrr rrr erir iit iitttittitittt tity 
3 
;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
; 
J APAAAAAEAARAAAEAEAERAAEAEEEEAREREAEAEEAAEAEAARARKARADEDRDE 
013701 036310’ MOV T3OBFR+6,R1 sPICK UP XSTO 
010102 MOV R1,R2 ;SET UP EXPECTED 
052702 000002 - BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 
020102 CMP R1,R2 ;DOES EXP = REC'D 
001406 BEQ 240$ ;BR, IF EQUAL (OK) 
005237 002214’ INC FATFLG sERROR COUNT 
ERRHRD ERRNO, T30B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
104456 TRAP 
000352 WORD 
037631' . WORD 
015364' .- WORD 
2403: CKLOOP ;LOOP IF SELECTED 
104406 TRAP 
005723 TST (R3)+ sPOINT TO NEXT POSITION 
011301 MOV CR3),R1 ;GET NEXT COMMAND ETC. 
020127 177777 CMP R1,0177777 sEND OF TABLE MARKER 
001410 BEQ 330$ ;BR, IF AT END OF TABLE 
013701 036444’ MOV T3OFCN,R1 ;sGET NUMBER OF SKIPS 
000241 CLC ;CLEAR THE CARRY BIT 
006101 ROL R1 ;PUSH OVER ONE POSITION 
010137 036444’ MOV R1,T30FCN sPUT BACK IN COUNTER 
000137 034374' JMP 182$ ; JUMP TO MORE COMMANDS TO DO 
330$: CKLOOP ;LOOP IF SELECTED 
104406 TRAP 
ENDSUB 3<<eeeeceeeece END SUBTEST >>>>>>>>>>> 
L10045; 
104403 TRAP 
023727 002214' 000017 CMP FATFLG, #15. :IS ERROR COUNT AT 25 
103402 BLO 999$ 3;BR, IF LESS THAN 25 
004737 017074' eens JSR PC ,CKDROP ;TRY TO OROP THE UNIT 


3* 


; 
sTEST 2, SUBTEST 3 
; 


; VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND 
sISSUED WHILE THE TAPE IS POSITIONED AT BOT CAUSES 


TEST 


TEST 2: SKIP TAPE MA 


1469 
1470 
1471 


1512 


035276 


035326 


012727 
000000 
013727 
000000 


005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 


104455 
000353 
003642’ 
011724' 


013737 
012704 


005046' 
011724' 


104406 


041042" 
036444 ' 
041134’ 
041176' 
176750 
015664’ 
000250 
002116’ 
177772 
177756 
036446' 


002214' 


002174' 
036260' 


010552’ 
002214' 


036446' 


036300' 
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sFUNCTION REJECT TERMINATION, WITH THE NON-EXECUTABLE 
sFUNCTION (NEF) ERROR BIT SET. 


10$: JSR 


208: 
MOV 
MOV 


; 
s ISSUE WRITE CHARACTERISTICS COMMAND 


PC, TSOREST 
T30F 


ast , SOF INIT 
330 


RO, 
ERRNO, SFIERR, SF IMSG 


UNITN, T30DSW 
#T3OPACKET ,R4 


SEQ 117 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T2.3: 


TRAP 
+SET COMMAND PACKET 
;CLEAR FILE COUNTER 
;SET UP OTHER COMMAND PACKET 
3SET UP OTHER COMMAND PACKET 


;00 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 
sDELAY ROUTINE CALL 


sBUMP COUNTER 
;BR, IF MORE yt TO 00 


;ERROR 
;CONTENTS OF TSSR REGISTER 
;FATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 
. WORD 


;SET UP UNIT 


C$BSUB 


#250,(PC)+ 
UsoLy.(PC)s 
“ecPc) 
“2ac0c) 


NUMBER 
sSUBROUTINE NEEDS PACKET ADDRESS 


{SAHARA EEAREREAAASESEAASEABASASEESEEEEEEEDEEAEEEAEEDSEREDDRE 


t 
{ SESEAAAEAEAAAASEEAAREAAEASEAAESEREAAEARAAEESEREDEDEDDADREDEE 


23%: CKLOOP 


PC,WRTCHR 

23$ 

FATFLG 

RO,R1 

ERRNO, WRTMSG, SF IMSG 


s ISSUE WRITE CHARACTERISTICS 

;BR, IF COMMAND ISSUED OK 
sERROR COUNT 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC —- 


- WORD 
. WORD 
. WORD 


TRAP 


;LOOP IF SELECTED 


WRTMSG 
SF IMSG 


CsCLP1 
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004737 


016501 


013701 
02 


104406 
012737 


012737 


005237 


010704' 


000002 


036310' 


000001 036412’ 


141410 036410’ 
036410° 


000000 
016140' 
000002 
100206 


002214' 


FE FOMOSSHSHHHEEAEHAASSSESEESEHEHEHOHHEOHESESEHHEEOEEEEEHEEOEEE 


3 
s ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


$ 
FOOSASSOHSHHHHEHAHSESOEEHEASHAESHESEHEEEEEHAEEEOEOEEEEOHEEEEEESE 


JSR PC ,REWINO sCALL TAPE REWIND COMMAND 
6cs 30% s6R, IF NO PROBLEM 
MOV RO,R4 sGET PACKET ADDRESS 
MOV TSSRCRS),R1 sGET STATUS REGISTER 
INC FATFLG sERROR COUNT 
ERRHRD ERRNO, TSORWN,PKTSSR sREWIND NOT ACCEPTED me 
. WORD 
. WORD 
. WORD 
308; CKLOOP sLOOP IF SELECTED 
TRAP 
PPV ULII II IIiiririririiiiiririiiiriiriiririiirririt tii tty 
3 
sGET EXTENDED STATUS REGISTER ZERO (xSTO) FROM MESSAGE BUFFER 
jdensceoncoesscoosasnnsennecessasenesessoeooessnsessoncess 
MOV TSOBFR+6,R1 sPICK UP xSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS eeiri. R2 sSET BOT BIT IN EXPECTED 
CMP R1,R2 sD0ES EXP = REC'D 
BEQ 40% sBR, IF EQUAL (OK) 
INC FATFLG sERROR COUNT 
ERRHRD ERRNO, TSOBOT ,EXPREC sTAPE NOT AT BOT AFTER “une 
. WORD 
- WORD 
. WORD 
408: CKLOOP sLOOP IF SELECTED men 
MOV 01, T30WB sSET ® OF TM TO SKIP 


FSSHSHSHSSHSSASHSSSSSSHHHSHESOHOASSHOSHHHHEHEHHEHEHHHEHHEOEOE 


a 
sSKIP TAPE MARK REVERSE ,ACK,CVC*1 COMMAND 


8 
FSSSSASSHSHSHSESSSHEESHHEHHESESEHEEEEEOHEHEHEEEEHEHEEEEEEEE 


SEQ 118 


CSERHRD 


CsCLP1 


CSERHRD 
238 


T3O0B0T 
EXPREC 


CscLP1 


MOV #141410, TSOPK3 sSKIP TAPE MARK REVERSE ACK ,CvC-1 CMD 
MOV @TSOPKS,R4 sSET UP R4& WITH PACKET ADDRESS 

MOV R4, TSOBCRS) s ISSUE COMMAND 

JSR PC ,WAITF sWAIT FOR SSR TO SET 

MOV TSSRCRS 5),R1 sGET TSSR CONTENTS 

MOV OSSRISCIBITL!BIT2,R2 sSET UP EXPECTED 

CMP R1,R2 sARE THEY EQUAL 

BEQ 708 sBR, IF OK 


FATFLG sERROR COUNT 


INC 
ERRHRD ERRNO, TSOIBT,FKTSSR aTSSR INCORRECT AFTER WRITE DATA 


C10 


T ‘ d ‘ ; P 
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035466 104456 TRAP CSERHMRD 
035470 000357 » WORD 239 
035472 036621' . WORD T30IBT 
035474 011736' WORD PKTSSR 

1569 035476 708: CKLOOP sLOOP IF SELECTED 

1570 035476 104406 TRAP CSCLP1 

1571 POU UIT ITI II iriiirriiiiriirriiiiiiiiiritiiiitiiititity 

1572 : 

isa sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

a 

1575 PCC IIIT Ir riviriririrrirrrriritiriiiiiiiiTiiiitiitititittT 

1576 

1577 035500 013701 036310' MOV T3OBFR+6,R1 sPICK UP XxSTO 

1578 035504 010102 . MOV R1,R2 sSET UP EXPECTED 

1579 035506 052702 002000 BIS @BIT10,R2 sSET NEF BIT IN EXPECTED 

1580 035512 020102 CMP R1,R2 3;D0ES ExP = REC'D 

1581 035514 001406 BEQ 180$ 3BR, IF EQUAL (OK) 

1582 035516 005237 002214’ INC FATFLG sERROR COUNT 

1586 035522 ERRHRD ERRNO, T3SONEF ,EXPREC 3 TAPE NoT AT NEF 
035522 104456 TRAP CSERHRD 
035524 000360 WORD 240 
035526 040366' «WORD T3ONEF 
035530 015364' ~ WORD EXPREC 

1587 035532 1808: CKLOOP ;LOOP IF SELECTED 
035532 104406 TRAP CSCLP1 

1588 035534 ENDSUB g<cececcececece END SUBTEST >>>>>>>>>>> 
035534 L10046: 
035534 104403 TRAP CsESuB 

1589 035536 023727 002214' 000017 CMP FATFLG, 915. sIS ERROR COUNT AT 25 

1590 035544 103402 BLO 9993 36R, IF LESS THAN 25 

1591 035546 004737 017074' JSR PC ,CKDOROP sTRY TO OROP THE UNIT 

1592 035552 9998: 

1593 

1594 2° 

1595 3 

1596 sTEST 2, SUBTEST 4 

1597 3 

1598 ; 

1599 sVERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND 

1600 sISSUEO WHILE THE TAPE IS POSITIONED JUST BEFORE THE 

1601 sFIRST RECORD ON ON TAPE (BUT NOT AT BOT) CAUSES TAPE 

1602 sSTATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT 

1603 s(RIB) STATUS BIT SET. 

1604 3 

1605 : 

1606 3 

1607 Fy 

1608 ; 

1609 a" 

1610 035552 BGNSUB g>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
035552 T2.4: 
035552 104402 TRAP cs6svue 

1611 035554 004737 041042: JSR PC, T3SOREST sSET COMMAND PACKET 

1612 035560 005037 036444' CLR TSOFCN sCLEAR FILE COUNTER 

1613 035564 004737 041134' JSR PC, T3SORT2 3SET UP OTHER COMMAND PACKET 


1614 035570 004737 041176' JSR PC, TSORTS sSET UP OTHER COMMAND PACKET 


TEST 1 


TEST e: 


035574 


035676 
035702 
035704 
035710 
035712 
035712 
035714 
035716 
035720 
035722 
035722 


035724 
035730 
035732 
035734 
035740 
035744 
035744 
035746 


- HARDWARE TEST 
SKIP TAPE MARK 


012737 


012727 
000000 
013727 
000000 


003642’ 
011724' 


013737 
012704 


005046’ 
011724' 


104406 


004737 
103411 

010004 
016501 
005237 


104456 
000363 
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SSC 
000250 
002116' 
177772 
177756 
036446' 
002214’ 


002174' 
036260' 


010552’ 
002214’ 


010704' 


000002 
002214' 


036446' 


036300’ 


MOV #65000. , TSODLY 
108; JSR oS , SOF INIT 

6cs 

DELAY $50 

DEC T3SODLY 

BNE 10$ 

INC FATFLG 

MOV RO,R1 

ERROF ERRNO, SF IERR, SF IMSG 
208: 

MOV UNITN, T300SW 

MOV @T3OPACKET,R4 


FPSSSHSHSSSASHSSHSESHAOHESHHHAESEEHEEAEEEEEEHEDEEHOEHEEEOEEOEE 


ty 
s ISSUE WRITE CHARACTERISTICS COMMAND 


6 
FPSSSASRSSSSASSHAHASHEHSESSHESESSEHEHESHOSHESESSESEHESESEOHAALE 


JSR PC, .WRTCHR 
cS 23% 

INC FATFLG 
MOV 


RC ,R1 
ERRHRD ERRNO,WRIMSG, SF IMSG 


23%: CKLOOP 


FS SSSHHSASSEHSSSEASHSSESESEHEAREEESHEHEEEEEHEEEEHEREKEKREDREOOOEED 


é 
sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


6 
FFSSSASEHHSHSASSSASESSASESESEAAEEESEHEEHESEHAEESHEHEEEEEOEE 


JSR 7 ceria 
BcS 

MOV ROLR 

MOV TSSRCRS), R1 
INC FATFLG 


ERRHRD ERRNO, T3SORWN,PKTSSR 


SEQ 120 
sSET UP DELAY COUNTER 
s00 INITIALIZE ON CONTROLLER 
s68R IF INIT WAS OK 
sDELAY ROUTINE CALL 
MOV #250 ,(PC)+ 
-WORD O 
MOV LSOLY,(PC)+ 
-WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE. --20 
sBUMP COUNTER 
sBR, IF MORE COUNTING TO 00 
sERROR COUNT 
sCONTENTS OF TSSR REGISTER 
;FATAL ERROR TSSR WAS NOT OK 
TRAP CsEROF 
-WORD 241 
-WORD SFIERR 
«WORD SF IMSG 
sSET UP UNIT NUMBER 
sSUBROUTINE NEEDS PACKET ADORESS 
sISSUE WRITE CHARACTERISTICS 
;6R, IF COMMAND ISSUED OK 
sERROR COUNT 
3 SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
«WORD 242 
-WORD WRTMSG 
-WORD  SFIMSG 
sLOOP IF SELECTED 
TRAP CsCLP1L 
sCALL TAPE REWIND COMMAND 
s8R, IF NO PROBLEM 
sGET PACKET ADDRESS 
sGET woe > a. tae 
OR COUNT 
sREWIND Nor ACCEPTED 
TRAP CSERHRD 
-WORD 283 
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035750 
035752 
1662 035754 
035754 


1 
1711 036102 


040030' 
011736' 


104406 


013701 
010102 
052702 
020102 
001406 
005237 


104456 


000364 
037631' 
015364' 


104406 
013737 
012737 


012737 
012704 


636310' 
000002 


002214’ 


003116' 
000400 


140005 
036410’ 
000000 


016140’ 
000002 
000200 


002214' 


036412’ 
036416' 


036410' 


012737 000001 036412’ 


SEQ 121 


T30RWN 
PKTSSR 


CsCLP1 


CSERHRD 
244 
T30B0T 
EXPREC 


CsCLP1 


T30WOD 
PKTSSR 


. WORD 
. WORD 
30$: CKLOOP sLOOP IF SELECTED 
TRAP 
FEAORAAAAAEAEERAAREREREDAAEEEREDAEDEEEEEEEDEDERERDEEEEEEDS 
; 
sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
POT OTT TTT TTT TTT T TTT TOTO TTT TOTS TTT TTT TTT TTT TTT TTT TTT 
MOV T3OBFR+6,R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS #BIT1,R2 sSET BOT BIT IN EXPECTED 
CMP R1,R2 sD0ES EXP = REC'D 
BEQ 40% 3BR, IF EQUAL (OK) 
INC FATFLG sERROR COUNT 
ERRHRD ERRNO, TSOBOT ,EXPREC ;TAPE NOT AT BOT AFTER — 
. WORD 
. WORD 
- WORD 
40$: CKLOOP sLOOP IF SELECTED nee 
MOV FREE , T30WB ;SET UP GOOD WRITE BUFFER 
MOV #256. ,1T30SZ 3SET UP SIZE 
PUTTY ICiriiiitiiitiiitiriiitiriririiiiiiiririi iii it) 
3 
sWRITE DATA,ACK,CVC*1 COMMAND 
OP TTT TTT TT TTT TOTTI TT TTT TT TOTO TTT TT TTTTT TITY TTT TTT TTT TT TT 
MOV #140005, T30PK3 sWRITE DATA,ACK,CVC=1 COMMAND 
MOV @T3SOPK3,R4 3SET UP R4&4 WITH PACKET ADDRESS 
MOV R4, TSOBCRS) s ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSR(RS),R1 sGET TSSR CONTENTS 
MOV @SSR ,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 70$ 3BR, IF OK 
INC FATFi.G sERROR COUNT 
ERRHRD ERRNO, T3SOWDD,PKTSSR ;TSSR INCORRECT AFTER wae + Osea 
. WORD 
. WORD 
. WORD 
70%: CKLOOP sLOOP IF SELECTED 
TRAP 


fPOROAOEEEEEESEEEEEDESEEEREDEDEEEEDEOEEEEDESEEEEDEDERELE 
H 

;SKIP TAPE MARK REVERSE ,ACK,CVvC=1 COMMAND 

3 

f OAH OEEEAAEEEEEEAEEEEDOAEEESOEEEESESEREEEDEEEAREEEEEEOEE 


MOV #1, T30WB 3@ OF T TO SKIP 


CscLP1 


1 


1712 
1713 
1714 


TEST - HARDW 
TEST 2: 


SKIP 


F10 


T as d ‘ : 
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012737 
012704 


013701 


141410 036410' 
036410’ 


000000 
016140' 
000002 
100204 


002214’ 


036316' 
000001 


002214’ 


002214' 
017074' 


016350’ 
032140’ 


000017 


INC 
ERRHRD 


160$: CKLOOP 


#141410, T3OPK3 
@TSOPK3 ,R4 


R4, TSOBCRS) 

PC ,WAITF 
TSSRCRS),R1 
a 


160$ 
FATFLG 
ERRNO, TSOIBU,PKTSSR 


SEQ 122 


sSKIP TAPE MARK REVERSE ,ACK,CVC=1 CMD 
sSET UP _R4 WITH PACKET ADDRESS 

sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sPICK UP TSSR 

sSET UP EXPECTED (SSR AND SC ONLY) 
sWAS STATUS GOOD 

BR, IF oe oie GOOD 


sERROR COUN 
sTSSR NOT CORRECT AFTER WRT TAPE M. 
TRAP CSERHRD 


sLOOP IF SELECTED 
TRAP CsCLP1 


J FPSSHHAASHSAESESEAAEASASESASESSEEEASESEHESEEEEACELEEEEEEEESD 


a 
sGET EXTENDED STATUS REGISTER ZERO (XST3) FROM MESSAGE BUFFER 


3 
FPSSHHHAAHASSEASSSSHESAAAEEESEASEEEAEHESEHEEEEEEEHEHEEEEEOHEEEE 


170%; CKLOOP 


999%: 


sSUBTEST END 
H 


JSR 
BCC 


JMP 
400$: EXIT 


T3OBFR+14,R1 
1 


ERRNO, TSORIB,EXPREC 


FATFLG,@15. 
999% 


PC ,.CKDROP 


PC, TSTLOOP 
400$ 


T30LOO0P 
TsT 


se 
sLOCAL STORAGE FOR THIS TEST 


sPICK UP XST3 

sSET UP EXPECTED 

sSET RIB BIT IN EXPECTED 

sD0ES EXP = REC'D 

:BR, IF ooand (OK ) 

RROR COUNT 

; TAPE noi AT RIB 
TRAP CSERHRD 
«WORD 247 
-WORD TS3ORIB 
«WORD EXPREC 

;LOOP IF SELECTED 

CsCLP1 


TRAP 
360K Cee END SUBTEST >>>>>>>>>>> 
L10047: 


TRAP CsEsSuB 
3IS ERROR COUNT AT 25 
3BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


3:00 WE NEED TO ITERATE TEST 

sB8R, IF NO LOOP REQUIRED 

sEXECUTE AGAIN 

sALL DONE THIS TEST 
TRAP CSExIT 
-WORD L10043-. 
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TEST 2: SKIP TAPE MARKS 


000000 
000100 
000200 
000300 
177777 


BLK 
T3OPACKET: 

WORD 

“WORD 
T3ODATA: 


T3OETM: .WORD 
T300SW: . 
T3O0BFR: .BLKW 


: 


3 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
: 


.BLK 
T3O0PKe2: 


-EVEN 
sTAPE MOTION PACKET COMMAND VALUES 


T3OIMV: 
TS3ORN: 


10-<, -TSV2E7> 


100004 
TSODATA 
0 

10. 
T3OBFR 
io) 


20. 
0 


0 
es. 
10-<, -TSV2E7> 


100006 

T30BF 2 

.*) 

6. 

10-<, -TSV2E7> 
100205 

FREE 

.°) 

0 


SEQ 123 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDORESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
sSKIP TAPE MARK CONTROL 
sSELECT ORIVE O 

sMESSAGE BUFFER 


sWRITE SUS SYS MEM COMMAND, AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, IE AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER CEXTENT) 


sBSELO AREA 
;BSEL1 AREA 
3;SEL 2 AREA 
;DATA AREA 


sNEITHER EWB NOR ESS 
sEWB SET 

3sESS SET 

;BOTH EWB AND ESS SET 
sEND OF DATA 


;TAPE TIMER COUNTER STORAGE AREA 
sTAPE TIMER COUNTER STORAGE AREA 
:FILE NUMBER COUNTER 

sDELAY COUNTER STORAGE 


012701 
012721 


012762 


H10 
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3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


*TSSR Incorrect After SKIP TAPE MARK REVERSE Into BOT’ 
‘RIB Bit (XST3) Failed To Set After Reverse Into BOT’ 
‘TSSR Incorrect After SKIP TAPE 


‘TSSR Incorrect After SKIP TAPE MARK C 
‘TSSR Not Correct After WRITE DATA Command’ 
‘Tape Not Positioned On Correct Record After READ REVERSE’ 


‘Tape Not Positioned On Second File First Record’ 

‘TSSR Incorrect After READ FORWARD Into "File”’ 

*TSSR Incorrect After SPACE Command Into TAPE MARK’ 

tite ~ Correct After Illege 
sieges Mode Bits, Failed ie Set ILC Bit In xSTO’ 

unt MISCELLANEOUS Command Not Acc 

‘TSSR Not Correct After SKIP 


epted' 


‘Tape Not At BOT After REWIND Command 


*TSSR Not Correct After SPACE FORWARD Command’ 
‘TSSR Not Correct After SPACE REVERSE Command’ 
‘Rewind (POSITION) Command Not Acc 
‘Drive 7 Select Failed To Set “OFL In TSSR’ 


epted' 


‘TSSR Not Correct After WRITE TAPE MARK Command 


‘CvC Set, Didn'‘'t Reset VCK In Mes 
‘TMK Not Set After WRITE TAPE MARK ( 


‘SKIP TAPE MARKS, 


‘NO Date Transferred On READ FORWARD’ 
‘Date Compare Error, Date Read From Tape Not Equal To Written’ 


-ASCIZ 


sWRITE SUBSYSTEM MEMORY COMMAND 


123 123 TSOIBU: 
111 102 TSORIB: 
123 123. TSOIBT: 
123 123. T3OSKM: 
123 123 TSOWDD: 
141 160 TSOPTB: 
141 160 TSOTPB: 
123 123 TSOROF: 
123 123 TS3OROG: 
123 123. T3OWDF: 
154 154 T30L0Q: 
122 111 TS3OSSR: 
123 123. T 
141 160 T3OB0T: 
123 123 T3OTM 
123 123 TSOTM2 
145 167 TS3ORWN: 
162 151 TSOOFL 
123 123 TSOWDC: 
126 103 TS3OVCK: 
115 113 TSOTMK: 
113 111 TSONEF: 
115 113. TS3ORRM: 
115 113 TSORRN: 
115 113 TSORRP: 
117 040 TSODTR: 
141 164 TSOOTA 
153 151 TST3OIO: 
3¢ 
3 
; 
3 i 
TSOREST: 
036260' 
100004 
036270' 
000012 
036302’ 
000024 
000000 
000030 
177777 036302' 64%: 


@TSOPACKET ,R1 
#100004 ,(R1)+ 
@T3ODATA,(R1)>+ 
C(R1)+ 

#10. ,(R1)-> 
@TSOBFR,CR1)+ 
CR1)> 

#20. ,(R1)-+ 
(R1)+ 

#0,(R1) 


024, ,R2 
0177777, TSOBFR(R2) 


‘Skip Tape Marks’ 


;SAVE THE REGISTERS 


1 Mode Bits Set’ 


Buf fer‘ 

TRY) Command’ 
At BOT, Feiled To Set NEF Bit’ 
‘TMK Not Set After READ REVERSE Into TAPE MARK’ 
*TMK Not Set After SPACE REVERSE Into TAPE MARK’ 
‘TMK Not Set After READ FORWARD Into TAPE MARK’ 


MARK REVERSE At BST’ 


TAPE MARKS, At BOT’ 


sSTART OF 


THE PACKET 


sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE ZERO 
sNUMBER OF LOCATIONS TO BE CLEARED 


sALL ONES 


TO MESSAGE BUFFER 


SEQ 124 
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005742 
022702 
001371 
000207 


012701 
012721 


012737 
012700 
004737 
012737 
005037 


000000 


036410' 


006166’ 002172’ 
046353’ 
016402’ 
000005 002210’ 
043146' 


TSORT2: 


T3ORTS: 


3° 


@T3SOPK2,R1 
#100006 ,(R1)-+ 
@TSOBF2,(R1)+ 


SEQ 125 


sNEXT LOCATION 

sCHECK R2 FOR DONE 
sKEEP GOING UNTIL DONE 
sRE TURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


;RETURN 


;SAVE REGISTERS 

;SET UP POINTER ADDRESS 
sCOMMAND SPACE 

sADDRESS OF DATA BLOCK 
sEXTENDED ADORESS 

sSIZE OF DATA TRANSFER BLOCK 
sRETURN 


L10043: 


TRAP CseETstT 


-SBTTL TEST 3: NO-OP ("CLEAN TAPE”) ANDO INITIALIZE 


é 
sTHIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE”) AND INITIALIZE 
sCOMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


3 


3 
;THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 


T31LO0P; 


3¢ 


GEPRT1,EPRTSW 
@TST31ID0,RO 
PC, TSTSETUP 
#5 ,LOOPCNT 
T31CNT 


3 
sTEST 3, SUBTEST 1 


5 T3:: 
sPRIMARY ERROR MESSAGE 
sASCII MESSAGE TO IDENTIFY TEST 
;00 INITIAL TEST SETUP 
sPERFORM S ITERATIONS 
sCLEAR TAPE RECORD COUNTER 
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TEST 3: NO-OP ("CLEAN TAPE”) AND INITIALIZE 

1939 ; 

1940 PF VERIFIES THAT THE NO-OP COMMAND (CORRESPONDS TO THE CLEAN TAPE 

1941 3 COMMAND) TERMINATES PROPERLY (NORMAL TERMINATION), STORES PROPER 

1942 3 STATUS IN THE MESSAGE BUFFER (LIKE THE GET STATUS COMMAND), AND 

1943 : INDEED DOES NOT MOVE TAPE. THE TAPE IS FIRST REWOUND AND 

1944 F WRITTEN WITH SEQUENCED TEST RECORDS. IT IS THEN REWOUND AGAIN 

1945 3 AND THE NO-OP COMMAND IS ISSUED. IT IS VERIFIED THAT THE TAPE 

1946 3 IS STILL AT BOT AND THAT PROPER STATUS IS STORED. THE FIRST 

1947 8 RECORD ON TAPE IS READ AND VERIFIED (TO CHECK TAPE POSITION AND 

1948 : VERIFY THAT DATA WAS NOT CHANGED), THEN THE NO-OP COMMAND IS 

coos 3 ISSUED AGAIN AND STATUS AND POSITION VERIFIED. 

1950 3 

1951 F 

1952 F 

1953 H 

1954 3 

1955 3 

1956 8° 

1957 041252 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
041252 T3.1: 
041252 104402 TRAP CsB6SuUB 

1958 041254 004737 046420’ JSR PC, T31REST 3SET COMMAND PACKET 

1959 041260 004737 046512’ JSR PC, T31IRT2 ;SET UP OTHER COMMAND PACKET 

1960 041264 004737 046554' JSR PC, T31RT3 ;SET UP OTHER COMMAND PACKET 

1961 041270 012737 176750 043152’ MOV #65000. , T310LY ;SET UP DELAY COUNTER 

1962 041276 004737 015664' 10$: JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 

1963 041302 103426 BCS 203., ;6R IF INIT WAS OK 

1964 041304 DELAY 250 sDELAY ABOUT .25 SEC 
041304 012727 000250 MOV #250,(PC)+ 
041310 000000 - WORD 0 
041312 013727 002116’ MOV LSDOLY,CPC)>+ 
041316 000000 - WORD i?) 
041320 005367 177772 DEC -6(PC) 
041324 001375 BNE .-4 
041326 005367 177756 DEC -22(PC) 
041332 001367 BNE --20 

1965 041334 005337 043152’ DEC T31DLY ;BUMP COUNTER 

1966 041340 001356 BNE O$ 3;B8R, IF COUNTER NOT DONE 

1967 041342 005237 002214’ INC FATFLG sERROR COUNT 

1971 041346 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

1972 041350 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
041350 104455 TRAP CSERDOF 
041352 000455 . WORD 301 
041354 003642’ . WORD SFIERR 
041356 011724’ . WORD SF IMSG 

1973 041360 013737 002174’ 043010' 20%: MOV UNITN, T310SW ;SET UP UNIT NUMBER IN PACKET 

1974 041366 012704 042770' MOV @T31PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

1975 041372 004737 010552’ JSR PC,WRTICHR s ISSUE WRITE CHARACTERISTICS 

1976 041376 103407 BCS 23% :BR, IF COMMAND ISSUED OK 

1977 041400 005237 002214' INC FATFLG sERROR COUNT 

1981 041404 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

1982 041406 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
041406 104456 TRAP CSERHRD 
041410 000456 . WORD 302 
041412 005046' m: .WORD WRTMSG 
041414 011724: ; .WORD SF IMSG 

1983 041416 23s: CKLOOP ;LOOP IF SELECTED 


TEST 


2030 041626 
041626 
2031 041630 


TEST "s: SOTBHMPSCTERL HaBe!SMASMERD TAH 01-79-04 


104406 
013701 


010704' 


002214' 


043020' 
000002 


002214' 


003116' 


000000 
016140' 
000002 
000200 


002214' 


010704' 


002214' 


043020' 


043122' 
043120’ 


30$: 


40$: 


65$: 


80$: 


2303: 


K10 


18:55 


PC ,REWIND 
30$ 


RO,R4 
FATFLG 
ERRNO, T31RWN,PKTSSR 


T31BFR+6,R1 


LG 
ERRNO, T31B0T ,EXPREC 


FREE, T31WB 
#140005, T31PK3 
@T31PK3,R4 
#100. RO 

PC, ,FILLMEM 


TSSRCRS), Ri 

@SSR ,R2 

R1,R2 

80$ 

FATFLG 

ERRNO, T31WOC ,PKTSSR 


PC ,REWIND 
230% 
RO,R1 


FATFLG 
ERRNO, T31RWN,EXPREC 


T31BFR+6,R1 


TRAP 
sCALL_ TAPE REWIND COMMAND 
sBR, IF NO PROBLEM 
:SET UP REWIND COUNT. ADDRESS 


;ERROR 
sREWIND NOT ACCEPTED 


TRAP 
. WORD 
. WORD 
. WORD 
sLOOP IF SELECTED 
TRAP 
sPICK UP XSTO 
sSET UP EXPECTED ak 
sSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 
3BR, IF EQUAL (OK) : 
sERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP 
- WORD 
. WORD 
- WORD 


;LOOP IF SELECTED 


TRAP 
sSTARTING WRITE BUFFER ADDRESS 
sWRITE DATA,CVC=1,ACK COMMAND 
;SET UP R4 WITH PACKET 


SEQ 127 


CsCLP1 


CSERHRD 
303 
T31RWN 
PKTSSR 


CsCLP1 


CSERHRD 
304 


T3180T 
EXPREC 


CsCLP1 


ADDRESS 
;SET PATTERN IN CORRECT REGISTER 


sFILL MEMORY WITH RECORD SIZE 
;SET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 


CSERHRD 
305 
T31WOC 
PKTSSR 


3BR, IF OK 
sERROR COUNT 
3TSSR INCORRECT AFTER WRITE DATA 
TRAP 
. WORD 
. WORD 
- WORD 
;LOOP IF SELECTED 
TRAP 


sCALL TAPE REWIND COMMAND 
3;BR, IF NO PROBLEM 


:SAVE TSSR 
sERROR COUNT 

sREWIND NOT ACCEPTED 
TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 
TRAP 


sPICK UP XxSTO 


CsCi.P1 


CSERHRD 
306 


T31RWN 
EXPREC 


CSsCLPL 


TEST 1 


- HARDWARE TEST 
TEST 3: 


NO-OP ("CLEAN 


010102 
052702 


tbe SIaS*GRD TRE He 1-8-4 


000002 


002214’ 


041012 
043120' 
043126' 
000000 
016140' 


000002 
000200 


002214' 


043020' 
000002 


002214' 


140001 
043120' 
000144 
000000 
016140’ 
000002 
000200 


002214' 


043120’ 


043120’ 
043126' 


2408: 
265$: 


2808: 


285%: 


MOV 
BIS 
CMP 
BEQ 
I 


FATFLG 
ERRNO, T3160T ,EXPREC 


#041012, T31PK3 
@T31PK3,R4 
R3,731SZ 
R4, TSDBCRS) 
PC ,WAITF 
TSSRCRS),R1 

Re 


FATFLG 
ERRNO, T31RDF ,PKTSSR 


a ae 


FLG 
ERRNO, T31B80T ,EXPREC 


#140001, T31PK3 
#T31PK3,R4 
#100. ,131SZ 


@SSR.R2 


LG 
ERRNO, T31RDE ,PKTSSR 


sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 

sD0ES EXP = REC'D 

sBR, IF EQUAL (OK) 

sERROR COUNT 

sTAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
- WORD 


. WORD 
sLOOP IF SELECTED 


TRAP 
sNO-OP ,CvC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 


:BR, IF OK 
sERROR COUNT 
sTSSR INCORRECT AFTER READ DATA 
TRAP 
. WORD 
- WORD 
. WORD 
sLOOP IF SELECTED 
TRAP 


sPICK UP xSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 


;8R, IF EQUAL (OK) 
sERROR COUNT 

;TAPE NOT AT BOT AFTER REWIND 
TRAP 
«WORD 
- WORD 
. WORD 

;LOOP IF SELECTED 
TRAP 


sREAD,ACK,CVC=1 COMMAND 

;SET UP R4& WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 


;BR, IF OK 
sERROR COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP 
. WORD 
. WORD 
. WORD 


SEQ 128 


—- 


30 
T3180T 
EXPREC 


CsCLP1 


CSERHRD 


308 
T31ROF 
PKTSSR 


CsCLP1 


3 
T3180T 
EXPREC 


CsCLP1 


CSERHRD 
310 
T31RDE 
PKTSSR 


TEST 1 _- HARDWARE TEST 
3: NO-OP ("CLEAN 


TEST 


1-8 
TAPE 


141030 
000144 


002214' 


002214’ 
017074' 


046420 
046512" 
046554' 
015664' 


002214' 


002174' 
042770’ 
010552’ 


002214' 


000017 


043010’ 


330$: 


999%: 


3¢ 


CKLOOP 


M1O 


TEST MACRO M1113_ O1-FEB-84 18:55 
") AND INITIALIZE 


290: 


OFREE ,R1 


FATFLG 
ERRNO, T31WNG,EXPREC 


FATFLG,@15. 
999% 
PC ,CKDROP 


; 
sTEST 3, SUBTEST 2 


20: 


SEQ 129 


sLOOP IF SELECTED 


sGET DATA READ 

sREAD EXPECTED 

sDID TAPE STAY POSITIONED 

sBR, IF EXPD = RECD 
sERROR COUNT 

3 TAPE DATA NOT CORRECT 


TRAP CsCLP1 


"wORD T31WNG 
"WORD EXPREC 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10051: 
TRAP CsESUB 
:IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
:TRY TO DROP THE UNIT 


VERIFIES THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP, 
ASSUMING NO MICRODIAGNOSTIC ERRORS ARE PRESENT (THEY WOULD 
ALREADY HAVE BEEN DETECTED IN PREVIOUS TESTS). THE TEST 
SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 


ERRHRD 


PC, T31LREST 
PC, T31iRT2 
PC, T31RT3 
PC ,SOF INIT 
20$ 

FATFLG 


RO,R1 
ERRNO, SF IERR, SF IMSG 


UNITN, T310SW 
@T31PACKET,R4 
CHR 


RO 
ERRNO, WRTMSG, SF IMSG 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T3.2: 


TRAP CsBSUB 
3SET COMMAND PACKET 
3SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
3D0 INIT. ALIZE ON CONTROLLER 
;8R IF INIT WAS OK 


sERROR COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP ht ead 


-WORD 31 
-WORD SFIERR 
WORD SFIMSG 


sSET UP UNIT NUMBER IN PACKET 

sSUBROUTINE NEEDS PACKET ADDRESS 

sISSVE WRITE CHARACTERISTICS 

;B8R, IF COMMAND ISSUED OK 

sERROR COUNT 

s SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 


N10 
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TEST 3: 


NO -OP 


("CLEAN TAPE” 


010704" 


002214’ 


043020' 
000002 


002214' 


003116’ 


000000 
016140’ 
000002 
000200 


002214' 


010704' 


002214’ 


043122' 
043120’ 


043126' 


AND INITIALIZE 


23s: 


30$: 


40$: 


65$: 


80$: 


ERRHRD 


PC ,REWIND 
30$ 
RO,R4 


FATFLG 
ERRNO, T31RWN,PKTSSR 


en 


LG 
ERRNO, T31B0T ,EXPREC 


FREE, T31WB 


R4, TSOBCRS) 
PC ,WALTF 
TSSR(RS),R1 
@SSR ,R2 


G 
ERRNO, T31WOC,,PKTSSR 


PC ,REWIND 
230$ 
RO,R1 


FATFLG 
ERRNO, T31RWN,EXPREC 


sLOOP IF SELECTED 


;CALL TAPE REWIND COMMAND 

;BR, IF NO PROBLEM 

;SET UP REWIND PACKET ADDRESS 
sERROR COUNT 

sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 


sPICK UP xSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 


. s300ES EXP = REC'D 


BR, IF EQUAL (OK) 


;ERROR COUNT 

;TAPE NOT AT BOT AFTER REWIND 
TRAP 
- WORD 
- WORD 
. WORD 

;LOOP IF SELECTED . 
TRAP 


sSTARTING WRITE BUFFER ADDRESS 
sWRITE DATA,CVC=1,ACK COMMAND 
;SET UP R4 WITH PACKET ADORESS 


SEQ 130 


313 
WRTMSG 
SF IMSG 


CsCLP1 


CsCLP1 


T31B80T 
EXPREC 


CsCLP1 


;SET PATTERN IN CORRECT REGISTER 


sFILL MEMORY WITH RECORD SIZE 
;SET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

sSET UP EXPECTED 

s;ARE THEY EQUAL 


T31WwOC 


3BR, IF OK 
sERROR COUNT 
;TSSR INCORRECT AFTER WRITE DATA 
TRAP 
. WORD 
. WORD 
. WORD 


;LOOP IF SELECTED 


TR 
;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 


;SAVE TSSR 
s;ERROR COUNT 
REWIND NOT ACCEPTED 
TRAP 
. WORD 
. WORD 


PKTSSR 
CsCLP1 


CSERHRD 
317 
T31RWN 


TEST 1_- HARDWARE TEST 


TEST 


3: NO-OP 


(“CLEAN 


TAbE" 


002214’ 


140001 
043120° 
000144 


000000 
016140’ 


000002 
000200 


002214' 


043120' 


043120' 
043126' 


2408: 
2658: 


2808: 


285%: 


Bil 


LG 
ERRNO, T31B80T ,EXPREC 


#041012, T31PK3 
@T31PK3, 


FATFLG 
ERRNO, TSLRDF ,PKTSSR 


a ite 


LG 
ERRNO, T31B0T ,EXPREC 


#140001, TS1PK3 
@TS1PK3,R4 

R4, TSOBCRS) 

PC ,WAITF 
TSSRC(RS),R1 
@SSR,R2 


LG 
ERRNO, T31RDE ,PKTSSR 


. WORD 
sLOOP IF SELECTED 
TRAP 
sPICK UP XxSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
sBR, IF EQUAL (OK) 
sERROR COUNT 
sTAPE NOT AT BOT AFTER REWIND 
TRAP 
- WORD 
. WORD 
. WORD 
sLOOP IF SELECTED 
TRAP 


s INITIALIZE ,CvC*1 COMMAND 

sSET UP R4 WITH PACKET ADORESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 


sBR, IF OK 
sERROR COUNT 

sTSSR INCORRECT AFTER READ DATA 
TRAP 
- WORD 
- WORD 
wORD 

sLOOP IF SELECTED 
TRAP 


sPICK UP xSTO 

sSET UP EXPECTED 

3SET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 

1BR, IF EQUAL (OK) 


sERROR COUNT 
sTAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 


sLOOP IF SELECTED 


TRAP 
sREAD, ACK ,CvC*1 COMMAND 
sSET UP R4 WITH PACKET ADORESS 
sSET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
sBR, IF OK 


sERROR COUNT 
sTSSR INCORRECT AFTER READ DATA 


SEQ 131 


EXPREC 
CSCLP1 


T3160T 
EXPREC 


CsCLP1 


CSERHRD 
319 
T31ROF 
PKTSSR 


CsCLPL 


CSERHRD 


CscrP1 


TEST 1 
TEST 


Cil 


- HARDWARE TEST 1-8 TEST MACRO M1113 O1-FEB-84 18:55 
38: NO-OP 


("CLEAN TAPE”) AND INITIALIZE 


100006 
043150' 


140216 
000144 


002214' 


002214' 
017074' 


016350’ 
041252' 


000017 


2908: CKLOOP 
MOV OFREE ,R1 
MOV #100, ,R2 
CMP R1,R2 
BEQ 330$ 
INC FATFLG 
ERRHRD ERRNO, T31WNH,EXPREC 
3308: 
ENODSU8 
CMP FATFLG,@15. 
BLO 999% 
JSR PC ,CKDROP 
9998: 
3 
3 
3 
JSR PC, TSTLOOP 
BCC 163% 
JMP T31L00P 
1638: EXIT TST 


3¢ 
sLOCAL STORAGE FOR THIS TEST 
g- 


-BLKB 10-<,-TSV2E7> 
T3SLPACKET: 

-WORD 100004 

-WORD TSIDATA 

-WORD O 

. WOR’ 10. 
T31DATA; 

-WORD TSIBFR 

-WORD O 

«WORD 20. 

«WORD O 
T310SW: .WwORD 0 
TSIBFR: .BLKW 25, 


$ 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
i 


.BLKB 10-<, -TSV2E7> 
T31PK2; 

. WORD 100006 

«WORD T318F2 


SEQ 132 
TRAP CSERHRD 
«WORD 321 
-WORD T31RDE 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLPi 


3GET DATA READ 

sREAD EXPECTED 

s0ID TAPE STAY POSITIONED 
s6R, IF EXPD = RECD 


sERROR COUNT 
sTAPE POSITION NOT CORRECT AFTER INIT 
TRAP CSERHRD 
«WORD 322 
«WORD T31WNH 
«WORD EXPREC 
3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
L100S2: 
TRAP CsESUB 
sIS ERROR COUNT AT 25 
3BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 
300 WE NEED TO ITERATE TEST 
sBR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP CSExIT 
-WORD 1L10050-. 
sCOMMAND PACKET FuR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
sADDRESS OF CFKARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADORESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 
sSELECT DRIVE O 
sMESSAGE BUFFER 
sWRITE SUB SYS MEM COMMAND, AND ACK 


sADDRESS OF SELECT BLOCK DATA 


102205 
177777 


: NO’BBARE TERN Habe §SAnB* CRO HAH: 2 


T31PK3; 


T31RB: 
T31WB: 


T3182: 


3 
T316F 2: 
T318S0: 
T31BS1: 
T31Se2: 
T31S3: 
3 

3 


Dil 


-FEB-84 18:55 
od. 60 

. D 6. 
-BLKB = 10-<, -'SV2E7> 
-WORD 100005 

-WORD FREE 

«WORD O 

-WORD O 
EVEN 

-BYTE 10 
-BYTE 200 
-WORD O 
«WORD O 


EVEN 
sTAPE MOTION PACKET COMMAND VALUES 


T31RN: 


. WORD 


177777 


ooo 


id 
sLOCAL TEXT MESSAGES FOR TEST 


T31RDE: 


-ASCIZ 


SEQ 133 


sSIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER CEXTENT) 


sBSELO AREA 
sBSEL1 AREA 
sSEL 2 AREA 
sDATA AREA 


sREREAD DATA (NEXT) 
sREREAD DATA RETRY 
sWRITE CONTINOUS 
sENO OF DATA 


sTAPE TIMER COUNTER STORAGE AREA 
sTAPE TIMER COUNTER STORAGE AREA 
sDELAY COUNTER 


‘TSSR Not Correct After READ Command’ 

‘Tape Position Incorrect After INITIALIZE Command’ 

‘Tape Position Incorrect After NOP Command’ 

‘TSSR Incorrect After READ DATA Command’ 

‘REREAD Previous (Space Reverse, Read Forward) Command Fai led’ 


‘POSITION (¢ 


) Feiled, TSSR Not Co*rect’ 


Spece Command 
‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 
‘TSSR Not Correct After Illegal Mode Bits Set’ 
‘Illegal Mode Bits, Failed To Set ILC Bit Im xSTO’ 


‘REREAD COMMAND Not Accep 


‘TSSR Not Correct After “NO. OP ("CLEAN TAPE”) AND INITIALIZE Command,At BOT: 


ted’ 


‘ Tape w At BOT After REWIND Command (B80T Not Set Im xSTO): 


‘NO-OP ("CLEAN TAPE”) AND INITIALIZE’‘S Erase Tape Not Long Enough’ 


"REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
‘TSSR Not Correct After REREAD COMMAND Reject’ 
‘Rewind (POSITION) Command Not Accepted’ 


EAS 


TEST 1 - HAROWARE TEST 1-8 TEST MACRO M1113 0O1-FEB-84 18:55 SEQ 134 
TEST 3: NO-OP ("CLEAN TAPE”) AND INITIALIZE 
2343 044553 122 101 115 T3iRNC: .ASCIZ ‘RAM Error, Correct Data Pattern Not In Ram’ 
2344 044626 124 123 123 T31AM3: .ASCIZ ‘TSSR Init. Failed After REREAD COMMAND’ 
2345 044675 104 162 151 T3S10FL: .ASCIZ ‘Drive 7 Select Failed To Set "OFL” In TSSR’ 
2346 044750 124 123 123 T31WOD: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 
2347 045040 124 123 123 T31iWOC: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command’ 
2348 045113 103 126 103 T3ivVCK: .ASCIZ ‘CVC Set, Didn’''t Reset VCK In Mess Buffer’ 
2349 045166 124 123 102 T31BA: .ASCIZ ‘TSBA Not Correct After REREAD DATA Command’ 
2350 045241 127 122 111 T31iwWSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
2351 045330 122 145 141 T31LON: .ASCIZ ‘Reading Long Record Failed To Set RLL Bit In xSTO’ 
2352 045412 122 145 141 T31LOP: .ASCIZ ‘Reading Long Recore Failed To Set RLS Bit In xSTO’ 
2353 045474 122 145 163 T31PBP: .ASCIZ ‘Residual Byte Cow.. Incorrect After Short Record Read’ 
2354 045562 122 145 141 T3iTRL: .ASCIZ ‘Readi Lone Meee ord Failed To Give Tape Status Alert’ 
‘ 2355 045650 116 117 OSS TS3iNEF: .ASCIZ ‘NO-OP ("CLE TAPE”) ANO INITIALIZE, At First Record, Failed To Set RIB Bit 
2356 045771 124 123 123 T3iSCF: .ASCIZ ‘TSSR Not Correct After SPACE RECORDS Command’ 
2357 046046 124 123 123 T3iTSA: .ASCIZ ‘TSSR Not Correct After NO-OP ("CLEAN TAPE”) AND INITIALIZE, Into BOT’ 
2358 046153 124 123 123 T3iWRF: .ASCIZ ‘TSSR Not Correct After NO-OP ("CLEAN TAPE”) AND INITIALIZE Command’ 
2359 046256 104 141 164 T310TA: .ASCIZ ‘Date Compere Error, Data Read From Tape Not Equal To written’ 
2360 046353 116 117 055 TST31I0: -ASCIZ ‘NO-OP ("Clean Tape”) And INITIALIZE’ 
2361 EVEN 
2362 3° 
2363 H 
2364 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
2365 ;WRITE SUBSYSTEM MEMORY COMMAND 
2366 F 
2367 3- 
2368 
2369 046420 T3iREST: 
2370 046420 SAVREG ;SAVE THE REGISTERS 
2371 046424 012701 042770' MOV @T31PACKET,R1 sSTART OF THE PACKET 
2372 046430 012721 100004 MOV #100004 ,(R1)>+ ;sWRITE SUBSYSTEM MEM. WITH ACK 
2373 046434 012721 043000’ MOV @T31DATA,(R1)-> sADDRESS OF CHARAISTICS DATA BLOCK 
2374 046440 005021 CLR CR1)- EXTENDED ADDRESS 
2375 046442 012721 000012 MOV #10. ,CR1)+ 3SIZE OF DATA BLOCK IN BYTES 
2376 046446 012721 043012' MOV OT31BFR,CRL)» sADDRESS OF MESSAGE BUFFER 
2377 046452 005021 CLR CR1)-> 
2378 046454 012721 000024 MOV @20.,(R1)+ sLENGTH OF MESSAGE BUFFER 
2379 046460 005021 CLR CR1)-> 
2380 046462 012711 000000 MOV #0,(R1) ;SELECT ORIVE ZERO 
2381 0456466 012702 000030 MOV 924. ,R2 ;NUMBER OF LOCATIONS TO BE CLEARED 
2382 046472 012762 177777 043012’ 643%: MOV 0177777, T31BFRC(R2) sALL ONES TO MESSAGE BUFFER 
2383 046500 005742 TST -(R2) sNEXT LOCATION 
2384 046502 022702 000000 CMP #0 ,R2 3AT END OF LOOP YET 
2385 046506 001371 BNE 64% iKEEP GOING UNTIL DONE 
to 046510 000207 RTS PC ;RETURN 
2388 
2389 046512 T31RT2: 
2390 046512 SAVREG sSAVE THE REGISTERS 
2391 046516 012701 043100’ MOV @T31PK2,R1 ;START OF THE PACKET 
2392 046522 012721 100006 MOV #100006 ,(R1)>+ sWRITE SUBSYSTEM MEM. WITH ACK, 
2393 046526 012721 043130’ MOV OT31B8F2,(R1)-> sADDRESS OF DATA Soe 
2394 046532 005021 CLR CR1)> sEXTENDED ADDRESS 
2395 046534 012721 000006 MOV 06.,(R1)> sSIZE OF DATA BLOCK IN BYTES 
2396 046540 005021 CLR CR1)-> 
2397 046542 012701 043130’ MOV oT31BF2,R1 sPOINT TO DATA SEL AREA 
2398 046546 005021 CLR (R1)> 


2399 046550 005011 CLR (R1) 


Fil 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 01-FEB-84 18:55 SEQ 135 
TEST 3: NO-OP ("CLEAN TAPE”) AND INITIALIZE 
2400 046552 000207 RTS PC sRETURN 
2401 046554 T31RT3: 
2402 046554 SAVREG sSAVE REGISTERS 
2403 046560 012701 043120’ MOV T31PK3,R1 sSET UP POINTER ADDRESS 
2404 046564 005021 CLR (R1)> sCOMMAND SPACE 
2405 046566 005021 CLR CR1)> sADDRESS OF DATA BLOCK 
2406 046570 005021 CLR (R1)> sEXTENDED ADDRESS 
2407 046572 005011 CLR (R11) sSIZE OF DATA TRANSFER BLOCK 
2408 046574 000207 RTS PC ;RETURN 
2409 046576 ENOTST 
046576 L10050: 
ase 046576 104401 TRAP CSETST 
1 
2411 -SBTTL TEST 4: Erase And Operation Incomplete 
2412 3° 
2413 3 
2414 F VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 
2415 3 POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 
ty 3 THE FOLLOWING TEST SEQUENCE IS PERFORMED: 
41 3 
2418 3 
2419 3 1. THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE 
oe . WRITTEN, AND THE TAPE IS REWOUNOD AGAIN. 
421 Fy 
2422 3 2. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
any 8 OF THE TEST RECORDS. 
3 
2425 3 3. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED 
ast 3 (BOT SHOULD BE 0). 
3 
2428 3 4 A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
2429 : THE COMMAND TERMINATES WITH TAPE STATUS ALERT, THAT THE 
2430 : REVERSE INTO BOT (RIB) STATUS BIT IS SET, AND THAT NO 
2431 3 DATA IS TRANSFERRED. THIS DEMONSTRATES THAT NO DATA 
2432 3 WAS ENCOUNTERED IN THE AREA ERASED BY THE ERASE 
2433 : COMMAND. 
2434 ; 
2435 3 
2436 : 
2437 ; 
2438 : 
2439 : 
2440 : 
oat sTHE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 
3 
2443 : 
2444 ; 
2445 :- 
2446 046600 BGNTST = 
2447 046600 012737 006166' 002172’ MOV GEPRT1 ,.EPRTSwW sPRIMARY ERROR MESSAGE 
2452 046606 012700 052460’ MOV @TST32ID,RO -sASCII MESSAGE TO IDENTIFY TEST 
2453 046612 004737 016402’ JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
2454 046616 012737 000005 002210 MOV @5,LOOPCNT sPERFORM 5 ITERATIONS 
ae 046624 005037 051330' CLR T32CNT ;CLEAR TAPE RECORD COUNTER 
3° “& 


2501 


046630 


ARE TE 
AND 


104402 
004737 
004737 
004737 
012737 
004737 
103426 


012727 
000000 


005046' 
011724' 


104406 
004737 


002116' 
177772 
177756 
051334’ 
002214' 


002174' 
051140' 
010552" 


002214' 


010704’ 


051334 


051160° 


Gil 


SS PS AGRO 1115 01-FEB-84 18:55 


sTEST 4, SUBTEST 1 


i VERIFIES THAT A Erase 


And Opera 
;THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
3; TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF ) 


sERROR BIT SET. 


10$: 


208: 


253: 


PC, T3S2REST 
PC, T32RT2 


asi SOF INIT 
350 


RO, 
ERRNO, SF TERR, SF IMSG 


UNITN, T320SW 
@TS2PACKET ,R4 


ERRNO, WRTMSG, SF IMSG 


PC ,REWINOD 


tion Incomplete COMMAND ISSUED WHILE 


SEQ 136 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T4.1: 


3SET COMMAND PACKET 


TRAP 


sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 


;SET UP DELAY COUNTER 


300 INITIALIZE ON CONTROLLER 


;BR IF INIT WAS OK 
sDELAY ABOUT .25 SEC 


sBUMP COUNTER 


3BR, IF COUNTER NOT DONE 


RROR COUNT 


3E 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS a 


sSET UP ORIVE NUMBER 


. WORD 
. WORD 


CsBSU8 


ern 
 peetteca ants 
-6(PC) 

4 


“22(PC) 
.-20 


sSUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 


sERROR COUNT 


sSAVE CONTENTS OF TSSR 


sWRITE CHARACTERISTISC FAILED 


sLOOP IF SELECTED 


TRAP 
;CALL TAPE REWIND COMMAND 


CsCLPl 


T 
T 4: 


2551 


- MARDWARE T 


ERASE ANDO 


AND OBERATON® 


000002 
002214" 


000400 
003116' 051272’ 
140005 051270° 
051270° 
051276' 
000000 


016140' 
000002 
000200 


278: 


002214’ 


283: 


051170° 
000002 


002214' 


40$: 


CKLOOP 


Hil 


MACRO M1113 01-FEB- : 
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26% 


RO,R4 

TSSRCRS),R1 

FATFLG 

ERRNO, TS2RWN,PKTSSR 


0256. .R3 
FREE , T32WB 
#140005, T32PK3 


@SSR,R2 


30% 

TSSRC(RS),R1 

RO,R4 

FATFLG 

ERRNO, TS2RWN,PKTSSR 


T3QBFR+6,R1 


ERRNO, T32B0E ,EXPREC 


SEQ 137 
sBR, IF NO PROBLEM 
sSET UP REWIND PACKET ADDRESS 
sGET TSSR CONTENTS 
sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 403 
«WORD T32RWN 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 


sSTARTING RECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 
sWRITE DATA,CVC=1,ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 


sERROR COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 


-WORD 404 
«WORD T32wWOC 
«WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CsCLP1 

s;BUMP RECORD COUNTER 

sAT MAX SIZE YET 

;BR, IF NOT AT END OF LOOP 

;CALL TAPE REWIND COMMAND 

;BR, IF NO PROBLEM 

sGET TSSR CONTENTS 

:SET UP REWIND PACKET ADDRESS 

sERROR COUNT 

sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 405 
-WORD T32RWN 
-WORD PKTSSR 

s;LOOP IF SELECTED 
TRAP CsCLPl 


sPICK UP XSTO 
sSET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
BR, IF oon (OK) 

RROR COUNT 
sTAPE AT ‘BOT AFTER ERASE 

TRAP CSERHRD 


-WORD 406 
-WORD T32B0E 
-WORD EXPREC 


;LOOP IF SELECTED 


TEST 1 
TEST 4: 


- HARDWARE No Sbenki Fon TEST Nereere tts 01-FEB-84 18:55 


ERASE 


104406 
012737 


140411 
051270' 


000000 
016140° 


000002 
000200 


002214’ 


051170° 
000002 


002214' 


003116’ 
140401 
000400 
051270' 
000000 
016140' 
00000, 


2 
100204 


002214' 


051176' 
000001 


002214' 


051270' 


051272' 
051270’ 
051276' 


558: 


180$: 


INC 
ERRHRD 


Til 


#140411, oe 
@T32PK3,R 

R4, TspacRS) 

PC ,WALTF 
TSSR(RS),R1 

@SSR,R2 

R1,R2 

50$ 

FATFLG 

ERRNO, TS2ERA,PKTSSR 


ERRNO, T32B0E , EXPREC 


FREE, T32RB 
#140401, T32PK3 
€256. ,132SZ 
@T32PK3,R4 

R4, TSOBCRS) 

PC ,WAITF 
TSSRCRS),R1 

+ pr aida 


ERRNO, TS2TSA,PKTSSR 


T32BFR+14,R1 


FATFLG 
ERRNO, T32RIB,EXPREC 


SEQ 138 


TRAP 
sERASE TAPE,CVC=1,ACK COMMAND 
sSET UP R4&4 WITH PACKET ADDRESS 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
3GET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
3BR, IF OK 


sERROR COUNT 
sTSSR INCORRECT AFTER ERASE DATA 
TRAP CSERHRD 


CsCLP1 


-WORD 407 
-WORD T32ERA 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 
sPICK UP XSTO 
3SET UP EXPECTED 
:SET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
;BR, IF COnRD (OK) 
RROR COUNT 
3 TAPE not AT BOT AFTER REWIND 
TRAP = 
. WORD 
. WORD 132806 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 
sADDRESS OF BUFFER 
sREAD REVERSE ,ACK,CVC=1 COMMAND 


sSET UP THE SIZE OF RECORD 

;SET UP R4& WITH PACKET ADDRESS 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED TAPE STATUS ALERT 
sARE THEY EQUAL 


3;6R, IF OK 
sERROR COUNT 
:TSSR INCORRECT AFTER READ DATA 
TRAP CSERWHRD 
. WORD 409 
.- WORD T32TSA 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLPl 
sGET xST3 STATUS WORD 
3SET UP EXPECTED 
;SET THE RIB BIT 
sARE THEY EQUAL 
;BR, IF EQUAL (GOOD) 
sERROR COUNT 
sRIB SHOULD BE SET 
TRAP CSERHRD 
~ WORD 410 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 01-FEB-84 18:55 SEQ 139 
TEST 4: ERASE AND OPERATION INCOMPLETE 
047446 051756' . WORD T32RI6 
047450 015364' WORD EXPREC 
2603 047452 190$: 
2604 047452 ENDSUB 3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
047452 10054: 
047452 104403 TRAP CsESUB 
2605 047454 023727 002214' 000017 CMP FATFLG,@15. ;IS ERROR COUNT AT 25 
2606 047462 103402 BLO 999% ;BR, IF LESS THAN 25 
2607 047464 004737 017074' JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
2608 047470 999%: 
2609 
2610 3* 
2611 3 
ty ;TEST 4, SUBTEST 2 
1 3 
2614 Fy VERIFIES THAT AN ERASE COMMAND EXECUTED WHEN THE TAPE IS NOT 
2615 3 POSITIONED AT BOT OPERATES PROPERLY AND DOES NOT CORRUPT 
ty ; PREVIOUS TAPE RECORDS. THE TEST SEQUENCE IS: 
1 3 
2618 8 1. THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE 
2619 8 WRITTEN, AND THE TAPE IS REWOUND AGAIN. 
3e21 ; 
2622 3 2. A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE 
2623 ; TAPE OFF OF BOT AND SKIP OVER THE FIRST SEVERAL 
=< Fy RECORDS. 
° 
2626 Fy 3. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
oy ; OF THE TEST RECORDS. 
ah Hy NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED. 
° 
2631 3 A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
2632 : NORMAL TERMINATION IS ACCOMPLISHED AND THAT THE DATA 
2633 : TRANSFERRED CORRESPONDS TO THAT FOR THE EXPECTED 
2634 : RECORD. THIS DEMONSTRATES THAT NO DATA WAS ENCOUNTERED 
2635 A IN THE AREA ERASED BY THE ERASE COMMAND, AND THAT THE 
— ‘ 3 PREVIOUS RECORD WAS NOT CORRUPTED. 
Hy 
2638 : 
2639 : 
2640 : 
2641 : 
2642 : 
2643 :- 
2644 047470 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
047470 T4.2: 
047470 104402 TRAP CsBSUB 
2645 047472 004737 052520' JSR PC, T32REST 3SET COMMAND PACKET 
2646 047476 004737 052612’ JSR PC,T32RT2) 3SET UP OTHER COMMAND PACKET 
2647 047502 004737 052642’ JSR PC,T32RT3 ;SET UP OTHER COMMAND PACKET 
2648 047506 0047 015664’ JSR PC,SOFINIT 300 INITIALIZE ON CONTROLLER 
2649 047512 103407 BCS 20% ;BR IF INIT WAS OK 
2650 047514 005237 002214' INC FATFLG sERROR COUNT 
2654 047520 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
2655 047522 ERROF ERRNO, SF IERR, SF IMSG ;FATAL ERROR TSSR WAS NOT OK 
047522 104455 TRAP CSEROF 


Jil 


TEST 
TEST 4: 


1_- HARDWARE T 


ERASE AND 


005046' 


AND OPERATEON® 


002174' 
051140' 
010552' 


002214' 


010704' 


002214' 


051170' 
000002 


002214' 


000144 
017314’ 
003116' 
140005 
051270' 


017314' 
051276' 
000000 


016140' 
000002 
000200 


002214’ 


051160’ 


051272’ 
051270' 


208: 


23: 


30$: 


40$: 


65$: 


he MA RO p15 01-FEB -84 


Kil 


18:55 


UNITN, T320SW 
@T32PACKET ,R4 


RO,R1 
ERRNO, WRTMSG , SF IMSG 


PC ,REWIND 
30$ 


RO,R4 
FATFLG 
ERRNO, T32RWN,PKTSSR 


T32BFR+6,R1 


LG 
ERRNO, T32B0T ,EXPREC 


Pc, -FILLMEM 
FREE, T32WB 
#140005, 732PK3 
+ ty eames 

i) 


R3, 
PC,FILLMEM 
R3,T32SZ 
R4, TSOBCRS) 
PC ,WAITF 
TSSRCRS),R1 
@SSR,R2 


LG 
ERRNO, T32WOC ,PKTSSR 


SEQ 140 
-WORD 411 
-WORD SFIERR 

SF IMSG 


. WORD 
sSET UP UNIT NUMBER IN PACKET 
sSUBROUTINE NEEDS PACKET ADDRESS 
sISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 

sERROR COUNT 


3 SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 


TRAP CSERHRD 
«WORD 412 
«WORD WRTMSG 
«WORD SFIMSG 

;LOOP IF SELECTED 
TRAP CsCLP1 

;CALL TAPE REWIND COMMAND 

;BR, IF NO PROBLEM 

;SET UP REWIND PACKET ADDRESS 

sERROR COUNT 

sREWIND NOT ACCEPTED 
TRAP CSERHRD 
«WORD 413 
«WORD T32RWN 
-WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CsCLP1l 

sPICK UP XSTO 

3SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

sD0ES EXP = REC'D 

;BR, IF EQUAL (OK) 

sERROR COUNT 

;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 414 
-WORD T32B0T 
-WORD EXPREC 

;LOOP IF SELECTED 
TRAP CsCLP1 


sSTARTING RECORD SIZE 
;SET UP MEMORY FILL 
;CALL_ MEMORY FILLER 
sSTARTING WRITE BUFFER ADORESS 
sWRITE DATA,CVC=1,ACK COMMAND 
3;SET UP R4& WITH PACKET ADDRESS 
;SET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
3GET TSSR CONTENTS 
;SET UP EXPECTED 
sARE THEY EQUAL 
3BR, IF OK 

s;ERROR COUNT 
;TSSR INCORRECT AFTER WRITE DATA 


4: 


- HARDWARE T 


ERASE AND 


000156 
010704’ 


002214’ 


051170' 
000002 


002214’ 


000001 
010356’ 
140411 
051270' 
000000 


016140’ 
000002 
000200 


002214’ 


003116’ 
140401 
000144 
051270' 
000000 
016140' 


051270' 


051272" 
051270’ 
051276’ 


80$: 


230%: 


2408: 


265%: 


280$: 


RE TEST 1:8 TEST MACRO M1113 01-FEB-84 


ERRHRD 


INC 
ERRHRD 


YS 


18:55 


FLG 
ERRNO, T32RWN,EXPREC 


a 


FATFLG 
ERRNO, T32B0T ,EXPREC 


#1,R3 

PC, SPACE 
#140411, T32PK3 
@T32PK3,R4 


@SSR ,R2 


LG 
ERRNO, TS2ERA,PKTSSR 


FREE, T32RB 
#140401, T32PK3 
#100. ,T32SZ 
#T32PK3,R4 

R4, TSOBCRS) 

PC ,WAILTF 


sLOOP IF SELECTED 


TRAP 
sBUMP RECORD SIZE COUNTER 
sAT 160 SIZE YET 
sBR, IF MORE RECORDS TO WRITE 
sCALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
3; SAVE be 


RROR COUNT 
sREWIND NOT ACCEPTED 
TRAP 
- WORD 
- WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 


sPICK UP XSTO 

sSET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 

BR, IF EQUAL (OK) 


sERROR COUNT 
;TAPE NOT AT BOT AFTER — 


sLOOP IF SELECTED 
TRAP 


3SET UP FOR SPACE COMMAND 
sISSUE SPACE COMMAND 1 FORWARD 
sERASE DATA,ACK COMMAND 

;SET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 


BR, IF OK 
;ERROR COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP 
. WORD 
. WORD 
. WORD 
sLOOP IF SELECTED 
TRAP 


sADORESS OF BUFFER 


sREAD REVERSE ,ACK,CVC=1 COMMAND 


sSET UP THE SIZE OF RECORD 
;SET UP R4 WITH PACKET ADDRESS 
; ISSUE COMMAND 

sWAIT FOR SSR TO SET 


SEQ 141 
CSERHRD 
415 
T32wOC 
PKTSSR 
CSCLP1 


T32RWN 
EXPREC 


CsCLP1 


CSERHRD 
417 
T32B0T 
EXPREC 


CsCLP1 


T32ERA 
PKTSSR 


CsCLP1 


Mil 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 01-FEB-84 18:55 SEQ 142 
TEST 4: ERASE AND OPERATION INCOMPLETE 
2753 050176 016501 000002 MOV TSSRC(RS),R1 :;GET TSSR CONTENTS 
2754 050202 012702 000200 MOV SSR ,R2 ;SET UP EXPECTED TAPE STATUS ALERT 
2755 050206 020102 CMP R1,R2 s;ARE THEY EQUAL 
2756 050210 001406 BEQ 290$ ;8R, IF -, 
2757 050212 005237 002214' INC FATFLG RROR COUNT 
2761 050216 ERRHRD ERRNO, T32TSA,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
050216 104456 TRAP CSERHRD 
050220 000643 -WORD 419 
050222 052131’ -WORD T32TSA 
050224 011736' .WORD' PKTSSR 
2762 050226 290$: CKLOOP ;LOOP IF SELECTED 
050226 104406 TRAP CSCLP1 
2763 050230 017701 132662 MOV OFREE,R1 3;GET DATA READ 
2764 050234 012702 000144 MOV #100. ,R2 ;SHOULD BE 100 
2765 050240 020102 CMP R1,R2 ;CHECK'EM OUT 
2766 050242 001406 BEQ 300$ ;BR, IF ns 
2767 050244 005237 002214' INC FATFLG OR COUNT 
2771 050250 ERRHRD ERRNO, T32ECF ,EXPREC ; ERASE cormano DION’ T WORK 
050250 104456 TRAP CSERHRD 
050252 000644 .WORD 420 
050254 052275’ -WORD T32ECF 
050256 015364’ .WORD €EXPREC 
2772 050260 300$: CKLOOP ;LOOP IF SELECTED 
050260 104406 TRAP CSCLP1 
2773 050262 330$: 
2774 050262 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
050262 L10055: 
050262 104403 TRAP CsESUB 
2775 050264 023727 002214' 000017 CMP FATFLG,#15. ;IS ERROR COUNT AT 25 
2776 050272 103402 BLO 999$ ;BR, IF LESS THAN 25 
2777 050274 004737 017074' JSR PC,CKDROP ;TRY TO DROP THE UNIT 
2778 050300 999$: 
2779 
2780 Pr 
2781 8 
276e ;TEST 4, SUBTEST 3 
é 
2784 ; VERIFIES THAT AN ERASE COMMAND ENCOUNTERING THE EOT MARKER, OR 
2785 ; EXECUTED BEYOND THE EOT MARKER, CAUSES TAPE STATUS ALERT 
2786 ; TERMINATION WITH THE EOT STATUS BIT SET. ALSO VERIFIES THAT THE 
2787 ; OTHER TAPE MOTION COMMANDS EXECUTED WHEN THE TAPE IS BLANK 
2788 3 RESULT IN UNRECOVERABLE ERROR TERMINATION AND OPERATION 
one ; INCOMPLETE STATUS. THE FOLLOWING TEST SSQUENCE IS EXECUTED: 
: 
a7 ; 1. THE TAPE IS REWOUND. 
7 
2793 ; 2. ERASE COMMANDS ARE REPEATEDLY ISSUED UNTIL EOT STATUS 
2794 ; IS SEEN. AN ERROR IS REPORTED IF ANY TERMINATION OTHER 
2795 ; THAN NORMAL (WITH EOT=0) OR TAPE STATUS ALERT (WITH 
2796 ; EOT=1) IS ENCOUNTERED. IF THE CONTROLLER OR TRANSPORT 
2797 ; DOES NOT DETECT THE EOT, THE TRANSPORT WILL FAULT. 
2798 ; THIS IS REPORTED AS A FATAL ERROR AND THE TEST IS 
2799 ; ABORTED. 
2800 ; 
2801 : 3. AN ADDITIONAL ERASE COMMAND IS ISSYED AND IT IS 
2802 ; VERIFIED THAT TAPE STATUS ALERT TERMINATION RESULTS, 
2803 ; WITH EOT=1. 


- HARDWARE 


TEST 1 
TEST 4: ERASE AND OPERATION INCOMPLE 


050460 


104402 
004737 
004737 
004737 
012737 
004737 
103426 


012727 
000000 


005046' 
011724' 


104406 
004737 
103411 


052520" 


000250 
002116' 
177772 
177756 
051334' 
002214’ 


002174' 
000040 

051140’ 
010552’ 


002214' 


010704' 


051334' 


051160' 
051160’ 


10$: 


20$: 


23s: 


Nii 


TEST 1-8 TEST MACRO wets 01-FEB-84 18:55 


SEQ 143 


IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS 
C ISSUED IN THE ORDER GIVEN) RESULTS IN UNRECOVERABLE 
ERROR TERMINATION WITH OPI=1: SPACE RECORDS REVERSE 
SKIP TAPE MARKS REVERSE READ REVERSE REREAD PREVIOUS 
COPP=0) REREAD PREVIOUS (COPP=1) REREAD NEXT (OPP=1) 
REREAD NEXT (COPP=0) READ NEXT SKIP TAPE MARKS REVERSE 
SKIP TAPE MARKS FORWARD SPACE RECORDS FORWARD WRITE 
DATA RETRY 
3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
74.3: 
TRAP CsBSUB 
PC, T32REST 3SET COMMAND PACKET 
PC, T32RT2 ;SET UP OTHER COMMAND PACKET 
PC, T32RT3 ;SET UP OTHER COMMAND PACKET 
#65000. , T32DLY ;SET UP DELAY COUNTER 
PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
20$ ;BR IF INIT WAS OK 
250 ;sDELAY ABOUT .25 SEC 
MOV #250,(PC)+ 
-WORD O 
MOV LSOLY,CPC)+ 
. D c¢] 
DEC -6(PC) 
BNE -4 
DEC “22¢PC) 
BNE -20 
T32DLY ;BUMP COUNTER 
10$ ;B8R, IF COUNTER NOT DONE 
FATFLG sERROR COUNT 
RO,R1 sCONTENTS OF TSSR REGISTER 
ERRNO, SFIERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
.- WORD 421 
. WORD SFIERR 
WORD SF IMSG 


UNITN, T320SW 
#BITS,T320SW 
#T32PACKET ,R4 


RO 
ERRNO, WRTMSG, SF IMSG 


PC ,REWIND 
30$ 


;SET UP UNIT (ORIVE) NUMBER 
;TURN ON HIGH SPEED TO SAVE TIME 
;SUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 

sERROR COUNT 
;SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC dy 


CSERHRD 
«WORD 422 
-WORD WRTMSG 
WORD SFIMSG 


;LOOP IF SELECTED 
TRAP CsCLP1 


;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 


TEST 1 


28695 
2896 


- HARDWARE 
TEST 4; 


ERASE 


TEST 1-8 TEST MACRO M1113 


AND OPERATION INCOMPLETE 


013737 


000002 
002214" 


308: 
051170' 
000002 


002214' 


403: 


140411 051270' 658: 


051270 
0512 6 F 
000000 
016140' 
000002 
000200 


002214’ 


808: 


2408: 


051300' 


003116’ 051272' 


01 -FEB -84 


Ble 


18:55 


TSSRCRS),R1 
RO,R4 


FATFLG 
ERRNO, 'S2RWN,PKTSSR 


T3S2BFR+6,R1 
R2 
reget t R2 
»R2 


FLG 
ERRNO, TS2B0T ,EXPREC 


#140411, T32PK3 


FATFLG 
ERRNO, TS2WOC .PKTSSR 


TS2BFR+6,R1 


G 
ERRNO, TS2EOT ,EXPREC 


@TS2CMD RS 
FREE, T52R6 


SEQ 144 
sGET TSSR CONTENTS 
sGET PACKET ADDRESS 
sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 423 
-WORD TS32RWN 
«WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLPi1 
sPICK UP XxXSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
sBR, IF EQUAL (OK) 
sERROR COUNT 
sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
«WORD 424 
«WORD T32B0T 
«WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLPi 
sERASE DATA,CVC*1,ACK COMMAND 


sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

sCHECK FOR TAPE STATUS ALERT 
BR, IF TAPE a SET 


sERROR C 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 


-WORD 425 
-WORD T3ewOC 
-WORD  PKTSSR 

sLOOP IF SELECTED 
TRAP CsC.P1 

sPICK UP XSTO 

sSET UP EXPECTED 

sSET EOT BIT IN EXPECTED 

s00ES EXP = REC'D 

sBR, IF EQUAL (OK) 

sERROR COUNT 

sTAPE NOT AT EOT AFTER ERASE COMMANDS 
TRAP CSERHRD 
-WORD 426 
«WORD TS3OEOT 
-WORD = EXPREC 

sLOOP IF SELECTED 
TRAP CsciP i 


sSTARTING RECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


TEST a 


051114 


011337 


012727 
000000 
013727 
000000 


051270' 
051270' 
177777 
017314" 
000144 051276' 


2658: 


000062 051 
016140' 2708: 
000002 


100214 


000250 
002116' 
177772 
177756 
051334' 
002214’ 


2608; 
051176’ 
000100 


002214' 


2908: 


177777 


002214’ 
017074’ 


000017 


999%; 


Cle 


: ERARE*RRo "bBdRAT PON PNCHAPPP P1115 01-FEB-84 18:55 


pha AF TS2PK3 
OT32PK3, R4a 

@177777,RO 

PC »FILLMEM 

#100. , 132S5Z 

R4, TSOBCRS) 

@50.,T320LY 

PC ,WAITF 

TSSR(RS), RL 

ee 

280% 

250 


T320L¥ 

270% 

FATFLG 

ERRNO, TS2ECF ,PKTSSR 


TS2BFR+14,R1 
R1,R2 
oBIT6,R2 
R1,R2 

2908 


FATFLG 
ERRNO, TS20P1,EXPREC 


C(R3)> 
(R3),0177777 
265% 


FATFLG, 15. 
9993 
PC ,.CKDROP 


sREAD DATA,ACK COMMAND 
sSET UP_R4 WITH PACKET ADDRESS 


SEQ 145 


uae! PATTERN IN CORRECT REGISTER 


FILL MEMORY WITH ALL ONES 
iSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
sSET UP DELAY COUNTER 


iSET UP EXPECTED 

sARE THEY EQUAL 

s6R, IF OK 

sOELAY FOR SSR TO BE SET 


MOV 
. WORD 
MOV 
. WORD 
DEC 
BNE 
DEC 
BNE 
sCOUNT DELAY ROUTINE DOWN 
BR, IF Oenne HAS NOT ENDED 
RROR COUNT 
sTSSR INCORRECT AFTER ~~ 
. WORD 
- WORD 
. WORD 
sLOOP IF SELECTED 
TRAP 
sPICK UP XxSTS 
sSET UP EXPECTED 
sSET OPI BIT IN EXPECTED 
sIS OPI BIT SET 
s6R, IF pe Is Set 
RROR COUNT 
sOPI BIT NOT SET 
TRAP 
- WORD 
- WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 


sBUMP COMMAND POINTER 
sAT END OF TABLE YET 
:BR, KEEP TRYING COMMANDS 


+ atetietiats 
tern 
“ecPe) 


"22¢PC) 
. -20 


T32ECF 
PKTSSR 


CsCLP1L 


CSERHRD 
428 
T320PT 
EXPREC 


CsCLP1 


g>>>>>>>>>>>> END SUBTEST »>>>>>>>>>>> 


sIS ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


CSE 5U8 


FEST 


Die 


: ERRRE*RRo BBE RATPONEPNCHAPRE Btt2S 01-FEB-84 18:55 


051114 
051120 


051130 


051132 


051276 


051300 
051300 
051302 
051304 
051306 
051310 
051312 


004737 
103002 
000137 


104432 
001534 


100004 
051150’ 
000000 


000012 
051162’ 
000000 


000024 
000000 
000000 


140410 
141410 
140401 
141001 
161401 
161001 


016350' 
046630' 


a 
JSR 
BCC 
JMP 
E 


163%: xIT 


PC, TSTLOOP 
163% 
T32L00P 
TsT 


3¢ 
sLOCAL STORAGE FOR THIS TEST 


= 
-BLK 
T32PACKET: 


T32DATA: 


. WORD 
T320SW: .WORD 
T3S2BFR: .BLKW 


a 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 


.BLKB 
T32PK2: 
WORD 
. WORD 
WORD 
. WORD 
BLKB 
T32PK3;: 
. WORD 
T32RB: 
T32WB: .WORD 
WORD 
T32SZ: .WORD 
-EVEN 


EVEN 
sTAPE MOTION PACKET COMMAND VALUES 


T32CMD: 


0 


10-<, -TSV2E7> 


100004 
T32DATA 
0 

10. 
T32BFR 
ie) 

20. 

te) 


te) 
es. 


10-<, -TSV2E7> 
100006 


6. 

10-<, -TSV2E7> 
100005 

FREE 

te) 

° 


140410 
141410 
140401 
141001 
161401 
161001 


SEQ 146 


s00 WE NEED TO ITERATE TEST 
s8R, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP CSExIT 
«WORD 1L10053-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE O 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, 
sADORESS OF SELECT BLOCK DATA 


:SIZE OF DATA PACKET 


AND ACK 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


sSPACE RECORDS REVERSE 
sSKIP TAPE MARKS REVERSE 
sREAD REVERSE 

sREREAD PREVIOUS (OPP=0) 
sREREAD NEXT (OPP =1) 
sREREAD PREVIOUS (OPP+1) 


TEST 1 - HARDWARE TEST 1-8 TEST MA 
TEST 4: 


ERASE 


051314 
051316 


051330 
051332 
051334 


29 052275 


052356 
052423 
052460 


AND OPERATION INCOMPLETE 


141401 


177777 


000000 
000009 
000000 


012701 
012721 


022702 


3 

T32CNT; 
T32CNU: 
T32DLY: 


Ele 


cre M1113 0O1-FEB-84 18:55 


141401 


141005 
177777 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


TST32I0: 


SASCIZ 


: JASCIZ 


-ASCIZ 
-ASCIZ 


SEQ 147 


sREREAD NEXT (COPP=0) 
sREAD NEXT 

sSKIP TAPE MARKS REVERSE 
sSKIP RECORDS FORWARD 
sWRITE DATA RETRY 

sEND OF DATA 


sTAPE TIMER COUNTER STORAGE AREA 
sTAPE TIMER COUNTER STORAGE AREA 
sDELAY COUNTER 


‘Tape Not At BOT After REWIND Command (BOT Not Set In xSTO)’ 


*Tape Status Alert 


During Erase To EOT, But EOT Not Set’ 


"Rewind (POSITION) Command Not Accepted’ 

*TSSR Init. Failed After REREAD COMMAND’ 

*TSSR Not Correct After ERASE Command’ 

‘TSBA Not Correct After REREAD DATA Command’ 

"READ REVERSE, After ERASE From BOT, Failed To Set RIB In xST3’ 
‘TSSR Not Correct After SPACE RECORDS Command’ 

‘TSSR Not Correct After READ REVERSE Into BOT’ 

BOT (XSTO) Still Set After Erase From Tape'‘s BOT Marker’ 
"ERASE Failed To Clear Tape (Erase) Tape Properly’ 


‘TSSR Not Correct After ERASE Command’ 
‘OPI Bit (xXST3) Failed To Set’ 


-ASCIZ 


‘Erase And Operation Incomplete’ 


;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


T32REST: 


141 160 
141 160 
145 167 
123 123 
123 123 
123 102 
105 101 
123 123 
123 123 
117 124 
122 101 
123 123 
120 111 
162 141 
3° 
° 
g° 
051140' 
100004 
051150° 
000012 
051162’ 
000024 
000000 
000030 
177777 051162’ 64%: 
000000 


@T32PACKET,R1 
100004 ,(R1)>+ 
@T3S2DATA,(R1)> 
CR1)> 

#10. eCR1L D> 
@T32BFR,CR1)>+ 
CR1)> 
20.,(R1)> 
CR1)> 

0,(R1) 

24, ,R2 
177777, T32BFRCR2) 
-(R2) 

0 ,R2 


;SAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE ZERO 

sNUMBER OF LOCATIONS TO BE CLEARED 
sALL_ ONES TO MESSAGE BUFFER 

sNEXT LOCATION 

sAT END OF LOOP YET 


TEST 1 


TEST 4: 


ERASE 


052606 
052610 


- HARDWARE TEST 1-8 TE 
AND OPERATION 


001371 
000207 


012701 


051250' 
100006 


000006 


051270 


File 


H 
3 
3 
H 
3 
3 
;TEST S -- Date Parity Test 
3 


ST MACRO M1113 0O1-FEB-84 18:55 
INCOMPLETE SEQ 148 
BNE 64$ sKEEP GOING UNTIL DONE 
RTS PC sRETURN 
T3ORTe2: 
SAVREG sSAVE THE REGISTERS 
MOV @T32PK2,R1 sSTART OF THE PACKET 
MOV #100006 ,(R1)> sWRITE SUBSYSTEM MEM. WITH ACK, 
CLR (R1)> sADDRESS OF DATA BLOCK 
CLR CR1)> sEXTENDED ADDRESS 
MOV 6.,(R1)>+ sSIZE OF DATA BLOCK IN BYTES 
CLR (R1)> 
RTS PC ;RETURN 
T3QRT3: 

SAVREG sSAVE REGISTERS 
MOV @T32PK3,R1 3SET UP POINTER ADDRESS 
CLR (R1)- sCOMMAND SPACE 
CLR (R1)> sADDRESS OF DATA BLOCK 
CLR CR1)> sEXTENDED ADDRESS 
CLR (R1) sSIZE OF DATA TRANSFER BLOCK 
RTS PC ;RETURN 
ENOTST 

L10053: 

TRAP CsETSsST 

SBTTL TEST 5: DATA PARITY TEST 


3 
:This test verifies that the data parity circuitry in both the controller and tne 


3; transport 


is operating properly by forcing date records with wr parity to be 


swritten onto tape and checking the results obtained when the data is read. The 
sfollowing test sequence is performed: 


é 


Ba 


A Write Characteristics command is issued and the resulting status is 
examined to determine the states of the Extended Features and Buffering 
Enable switches on the controller module. If buffering is disabled, no 
further actions need be taken in this step and the program proceeds to 
the next step. If buffering is enabled, it is disabled via the Buffer 
Control field in the extended characteristics data word supplied by a 
Write Characteristics command. (The module must be in Extended mode, 
so if it is not already, a Write Subsystem Memory command is issued to 
change the logical sense of the Extended Features switch. ) 


The Write Subsystem Memory command is used to set the Force Wrong 
Parity control flip-flop. 


The tape is rewound. 


A Write Date command is issued to write a data 


record containing all 
O's. It is 


verified that this command results in Recoverable Error 


HARDW 
DATA 


052716 
052716 


052754 


Gle 


T 1-8 TEST MACRO M -FEB -84 : 
pants Tedie s CRO M1113 O1-FEB-84 18:55 


012737 


104402 


104421 
032700 
001002 
000137 


005037 
005037 
005037 
004737 
004737 


006225' 
055505’ 
016402' 
00000 


054556’ 


uw 


002172" 


002210’ 


(RBP) error 
read is correct. 


termination (TC*4) and that the Uncorrectable Data Error 
bit is set. 


5. The previous step is repeated for each date 
Coctel). 


6. The tape is rewound. 


7. A Read Next command is issued to read a record with faulty parity. 
verified that this command results in Recoverable Error termination 
(TC*4) and that both the Uncorrectable Data (UNC) and Read Bus Parity 
It is also verified that the date actually 


8. A Read Reverse command with OPP=1 is issued to read, 

same record with faulty parity as read in the previous step. 
verified that this command results 
(TC=4) 
(RBP) error bits ere set. 
read is correct. 


and 


10. The previous three steps are executed for each test 
written. 


11. Tne controller is initialized to clear 
previously set up. 


@EPRT2,EPRTSW 


@TST33ID,RO 
PC, TSTSETUP 
#5 ,LOOPCNT 
T33CNT 


RO 
@BIT6,RO 
S$ 

220% 


INTRECV 
T33CNT 
T33CNU 

PC, TS3REST 
PC, T33RTO 


bits are set. 


SEQ 149 
CUNC ) 


velue 2 through 377 


It 


the 
It is 
termination 


in reverse, 


in Recoverable Error 


that both the Uncorrectable Data (UNC) and Read Bus Parity 
It is also verified that the data actually 


9. Tape is spaced forward one record. 


record originally 


the special test conditions 


TS:: 
sSECONDARY ERROR MESSAGE 
sASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 
sPERFORM S ITERATIONS 
;CLEAR TAPE RECORD COUNTER 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
TS.1: 


TRAP CsB8SUB 
sCHECK FOR THE ISR FLAG SET 
CSRFLA 


TRAP 
sIF NOT SET WE WILL SKIP THE TEST 
sBR, IF SET 

sSKIP OVER TEST UNTIL BOARD FIXED 


s INTERRUPT INDICATOR 

s TIMER FOR WRITE DATA SPACING 

s TIMER FOR WRITE DATA RETRY SPACING 
sSET COMMAND PACKET 

sSET UP OTHER COMMAND PACKET 


error 


TEST 1_- HARDWARE TEST 


TEST 


053172 


004737 
012737 
004737 
103426 


012727 
000000 


005046' 


Hie 


-8 TEST MACRO M1113 O1-FEB-84 18:55 


5: DATA PARITY TEST 


055656‘ 
ace 
000250 
002116' 
177772 
177756 
054562’ 
002214' 


002174’ 


054400' 
0105S2' 


002214' 


054430' 
000002 


002214' 


054562" 


054420' 


10$: 


208: 


23%: 


308: 


PC, T33RT3 
#65000. , T330LY 
PC, SOF INIT 

20% 

250 


RO,R1 
ERRNO, SFIERR, SF IMSG 


UNITN, T330SW 
@TSSPACKET ,R4 
CHR 


RO,R 
ERRNO, WRTMSG, SF IMSG 


PC ,REWINOD 

30% 

TSSRCRS),R1 

RO,R4 

FATFLG 

ERRNO, T33RWN,PKTSSR 


LG 
ERRNO, T33B0T ,EXPREC 


sSET UP OTHER COMMAND PACKET 
sSET UP DELAY COUNTER 

sD0 INITIALIZE ON CONTROLLER 
sBR IF INIT WAS OK 

sDELAY ABOUT .25 SEC 


sBUMP COUNTER 
3BR, IF COUNTER NOT DONE 
sERROR COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS — = 
RA 


;SET UP UNIT NUMBER 


SEQ 150 


er 
-6(PC) 
4 


“22(PC) 
--20 


sSUBROUTINE NEEDS PACKET ADORESS 


sISSUE WRITE CHARACTERISTICS 

;BR, IF COMMAND ISSUED OK 
sERROR COUNT 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 


;LOOP IF SELECTED 
TRAP 


sCALL TAPE REWIND COMMAND 

sBR, IF NO PROBLEM 

sGET TSSR CONTENTS 

sGET PACKET ADORESS 
sERROR COUNT 

sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 


sPICK UP XxSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 

sBR, IF EQUAL (OK) 


sERROR COUNT 
; TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 


CSERHRD 
502 

WRTMSG 
SF IMSG 


CsCLPi 


CSERHRD 
503 
T33RWN 
PKTSSR 


CsCLP1 


CSERHRD 
504 


Iie 
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055165‘ 
015364' 


5046 
011724' 
104406 
112737 


005237 


104456 
000773 
055101' 
011736’ 


104406 
012703 
013737 


002220' 
000200 
000010 
054510' 
000000 


016226' 


002214' 


002222' 
002174' 
000020 
000010 
054400’ 
010552’ 


002214' 


000000 
016226’ 


002214’ 


000026 
003116’ 


40$: 


42$: 


054541' 
054540’ 


50$: 
55$: 
054420' 


054420' 
054420' 


60$: 


70$: 
054541' 
054540' 


80$: 


054532’ 


EXTFEA 

55% 

#200, T338S1 
#10, 1T338S0 
@T335PKe ,R4 
R4, TSDOBCRS) 
PC,.CHKTSSR 
50$ 

RO,R1 
FATFLG 
ERRNO, T33SSR,PKTSSR 


BENSSW 

70$ 

UNITN, T330SW 
@BIT4, T330SW 
#BIT3,T330SW 


@T33PACKET,R4 
PC ,WRTCHR 


RO, 
ERRNO, WRTMSG, SF IMSG 


#100, 133851 
#11,T338S0 

@T33PK2 ,R4 

R4, TSDOBCRS) 

PC, CHKTSSR 

80$ 

RO,R1 

FATF LG 

ERRNO, T33SSR,PKTSSR 


#22. ,R3 
FREE, T33wB8 


SEQ 151 
-WORD T33B0T 
«WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 


sCHECK FOR EXTENDED FEATURES SW SWITCH 
sB8R IF SWITCH IS ON 
sWRITE MISCELLANEOUS CONT/READ STATUS 
sFUNC. SEL. BIT (TURN ON EXTFEA SWITCH) 
sWRITE SUBSYS MEM PACKET 

OMMAND 


sERROR, SAVE TSSR 


sERROR COUNT 
sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHRD 
-WORD 505 
-WORD T33SSR 
-WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 


sCHECK FOR BUFFER ENABLED 

3B8R, IF BUFFERING NOT ENABLED 

sSET UP UNIT NUMBER 

;BUFFER DISABLE 

sBUFFER DISABLE SEND 01 TO BITS 4 AND 3 
;SUBROUTINE NEEDS PACKET ADDRESS 

ion. TF com CHARACTERISTICS 

3 ° 


s SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 


TRAP CSERHRD 

-WORD 506 

-WORD WRTMSG 

-WORD SFIMSG 
sLOOP IF SELECTED 

TRAP CsCLP1 


sWRITE MISCELLANEOUS CONT/READ STATUS 
sFUNC. SEL. BIT (SET WRONG PARITY) 
sWRITE SUBSYS MEM PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR 

;BR, IF NO ERROR 

sERROR, ett TSSR 


RROR COUNT 

sTSSR not CORRECT AFTER pon MISCELLANEOUS 
TRA CSERHRD 
WORD 507 
«WORD T33SSR 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CsCLP1 


sNUMBER OF RECORDS TO BE WRITTEN 


sSTARTING WRITE BUFFER ADDRESS 


Jle 
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3263 053430 005037 054560' CLR T33CNU sMAKE SURE ITS CLEAR 

3264 053434 012737 140005 0545350' 110%: MOV #140005 , T335PK3 sWRITE DATA,ACK,CVC=1 COMMAND 

3265 053442 012704 054530’ MOV @T33PK3,R4 :SET UP R4 WITH PACKET ADDRESS 

3266 053446 012737 000024 054536’ MOV #20. ,T33SZ sSET UP RECORD SIZE IN PACKET 

3267 053454 013777 054560' 127434 MOV T33CNU, OF REE sMEMORY FILLED WITH DATA IN RECORD 

3268 053462 005237 054560’ INC T33CNU sREADY FOR NEXT RECORD 

3269 053466 010465 000000 MOV R4, TSOBCRS) s ISSUE COMMAND 

3270 053472 004737 016140' JSR PC ,WAITF sWAIT FOR SSR TO SET 

3271 053476 016501 000002 MOV TSSRC(RS),R1 sGET TSSR CONTENTS 

3272 053502 012702 100210 MOV @SSR!SC!BIT3,R2 sSET UP EXPECTED 

3273 053506 020102 CMP R1,R2 sARE THEY EQUAL 

3274 053510 001406 BEQ 120% sBR, IF OK 

3275 053512 005237 002214' INC FATFLG sERROR COUNT 

3279 053516 ERRHRD ERRNO, T33WPW,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
053516 104456 TRAP CSERHRD 
053520 000774 «WORD 508 
OS3522 054642' -WORD T33WPW 
053524 011736’ «WORD PKTSSR 

3280 053526 120$: CKLOOP sLOOP IF SELECTED 
053526 104406 TRAP CsCLP1 

3281 053530 013701 054432’ MOV T33BFR+10,R1 sPICK UP XST1 

3282 053534 010102 MOV R1,R2 sSET UP EXPECTED 

3283 053536 052702 000002 BIS #BIT1,R2 ;SET UNC BIT IN EXPECTED 

3284 053542 020102 CMP R1,R2 sD0ES EXP = REC'D 

3285 053544 001406 BEQ 130$ sBR, IF EQUAL (OK) 

3286 053546 005237 002214' INC FATFLG sERROR COUNT 

3290 053552 ERRHRD ERRNO, T33UNC ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
053552 104456 TRAP CSERHRD 
053554 000775 -WORD 509 
053556 054722’ -WORD  T33UNC 
053560 015364' -WORD EXPREC 

3291 053562 130$: CKLOOP ;LOOP IF SELECTED 
053562 104406 TRAP CsCLP1 

3292 053564 005303 DEC R3 sDEC RECORD COUNTER 

3293 053566 001322 BNE 110% ;BR, IF MORE RECORDS TO WRITE 

3294 053570 004737 010704' JSR PC ,REWIND sCALL_ TAPE REWIND COMMAND 

3295 053574 103411 BCS 140$ ;8R, IF NO PROBLEM 

3296 053576 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

3297 053602 010004 MOV RO,R4 sGET PACKET ADDRESS 

3298 053604 005237 002214’ INC FATFL sERROR COUNT 

3302 053610 ERRHRD ERRNO, T33RWN,PKTSSR REWIND NOT ACCEPTED 
053610 104456 TRAP CSERHRD 
053612 000776 -WORD 510 
053614 055260’ -WORD T33RWN 
053616 011736’ -WORD PKTSSR 

3303 053620 140$; CKLOOP ;LOOP IF SELECTED 
053620 104406 TRAP CsCLP1 

3304 053622 013701 054430’ MOV T33BFR+6,R1 sPICK UP XSTO 

3305 053626 010102 MOV R1,R2 sSET UP EXPECTED 

3306 053630 052702 000002 BIS #BIT1,R2 sSET BOT ee IN EXPECTED 

3307 053634 020102 CMP R1,R2 sD0ES EXP = REC'D 

3308 053636 001406 BEQ 150$ 3BR, IF EQUAL (OK) 

3309 053640 005237 002214’ INC FATFLG s;ERROR COUNT 

3313 053644 ERRHRD ERRNO, T33B0T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
053644 104456 TRAP CSERHRD 
053646 000777 - WORD 


Sil 
053650 055165’ -WORD T33B0T 


TEST 1 


Kile 


- HARDWARE TEST 1-8 TEST MACRO M1113 01-FEB-84 18:55 
TEST 5: DATA PARITY TEST 


054560' 
000024 
003116‘ 
14000! 


054530’ 
000024 054536’ 
000000 


016140’ 


054532' 
054530' 


054432' 
000002 


002214' 


054432' 
000400 


002214' 


127044 
054560’ 


002214' 


150$: 


155$: 


160$: 


170$; 


180$; 


FREE, T33RB 
#140001, T33PK3 
©T33PK3,R4 

#20. ,T33SZ 

R4, TSOBCRS) 

PC ,WAITF 
TSSRCRS),R1 
_— 


LG 
ERRNO, T33WOC ,PKTSSR 


ay Aiea 


G 
ERRNO, T33UND,EXPREC 


ae Ata R1 
R1,R 


LG 
ERRNO, T33RBP ,EXPREC 


OFREE ,R1 
T33CNU,R2 
R1,R2 
182$ 


FATFLG 
ERRNO, T330TA,EXPREC 


SEQ 153 


-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 


sCLEAR DATA VALUE IN RECORD 
sRECORD SIZE 

sSTARTING WRITE BUFFER ADDRESS 
sREAD DATA,CVC=1,ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 


;BR, IF OK 
;ERROR COUNT 
;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
«WORD 512 
-WORD 133wOC 
.WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
;PICK UP XST1 
3;SET UP EXPECTED 
;SET UNC BIT IN EXPECTED 
;D0ES EXP = REC'D 
;8R, IF EQUAL (OK) 
s;ERROR COUNT 
;UNC BIT NOT SET AFTER READ CMD. 
TRAP CSERHRD 
-WORD 513 
.WORD T33UND 
.WORD €EXPREC 
;LCOP IF SELECTED 
TRAP CSCLP1 
;PICK UP XxST1 
3SET UP EXPECTED 
;SET RBP BIT IN EXPECTED 
;D0ES EXP = REC'D 
3;BR, IF EQUAL (OK) 
;ERROR COUNT 
;READ Bus PARITY ERROR err or SET 
CSERHRD 
TWORD 514 
.WORD T33RB6P 
.WORD EXPREC 
:LOOP IF SELECTED 
4 TRAP CSCLP1 
3;GET DATA READ 
3GET PATTERN 
;ARE THEY EQUAL 
;BR, on 
RROR COUNT 
;DATA Not CCORREC? 
TRAP CSERHRD 
.WORD 515 


Lie 
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054072 


055410' 
015364’ 


003116’ 054532" 
140401 054530’ 
054530' 
000024 054536’ 
000000 


016140' 
000002 
100210 


002214' 


054432’ 
000002 


002214' 


054432’ 
000400 


002214' 


126632 
054560’ 


002214’ 


182$: 


195$: 


190$: 


200%: 


210$: 


FREE , T33wB 
#140401, T33PK3 
@T33PK3,R4 


TSSRCRS), R1 
@SC!SSR!BITS, R2 
1,R2 


190$ 
FATFLG 
ERRNO, T33WOC ,PKTSSR 


T33BFR+10,R1 


FATFLG 
ERRNO, T33UND ,EXPREC 


T33BFR+10,R1 
R1,R2 

oBIT8,R2] 

R1,R2 

210$ 

FATFLG 

ERRNO, T33RBP ,EXPREC 


@FREE ,R1 
T33CNU,R2 
R2 


LG 
ERRNO, T33DTA,EXPREC 


SEQ 154 
«WORD T330TA 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 


sSTARTING WRITE BUFFER ADDRESS 
sREAD REVERSE DATA RETRY,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 


;BR, IF OK 
sERROR COUNT 
;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
WORD 16 
-WORD T33wWOC 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
3PICK UP XST1 
;SET UP EXPECTED 
;SET UNC BIT IN EXPECTED 
;DOES EXP = REC'D 
;BR, IF EQUAL (OK) 
sERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERWRD 
-WORD 517 
-WORD T33UND 
. WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSsCLP1 
;PICK UP xSTO 
;SET UP EXPECTED 
iSET RBP BIT IN EXPECTED 
;D0ES EXP = REC'D 
;BR, IF — COOK) 
RROR COUNT 
;READ ey PARITY ERROR BIT — SET 
TRA CSERHRD 
THORD 518 
.WORD T33RB6P 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLPl 
;GET DATA READ 
;GET PATTERN 
;ARE THEY EQUAL 
;BR, IF en 
RROR COUNT 
;DATA not CORRECT 
TRAP CSERHRD 
-WORD 519 
WORD T33DTA 


3412 


002214’ 
017074' 


016350’ 
052716’ 


000017 


Mie 
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215$: CKLOOP 
MOV R3,R2 
MOV #1,R3 
JSR PC, SPACE 
MOV »R3 
INC T33CNU 
DEC R3 
BEQ 220$ 
JMP 155$ 
2208: 
ENOSUB 
CMP FATFLG,#15. 
BLO 999$ 
JSR PC,CKDROP 
999%: 
8 
3 
H 
JSR PC, TSTLOOP 
BCC 230$ 
JMP T33LO00P 
2308: EXIT TST 


3¢ 
;LOCAL STORAGE FOR THIS TEST 
Be 


-BLKB 10-<,-TSV2E7> 
T33PACKET: 

«WORD 100004 

-WORD  T33DATA 

-WORD O 

-WORD 10. 
T33DATA: 

-WORD T33B8FR 

-WORD O 

-WORD 20. 

-WORD O 
T330SW: .WORD O 
T33BFR: .BLKW 25. 


+ 
s;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
‘ 


-BLKB 10-<. -TSV2E7> 
T33PK2: 
: . WORD 100006 

. WORD T338F2 

-WORD O 

-WORD 6. 

BLKB 10-<, -TSV2E7> 


T33PK3: 


SEQ 155 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 


sSAVE R3 FOR A MOMENT 
sSPACE FORWARD ONE RECORD 
sCALL ROUTINE 

sRESTORE R3 

s;BUMP TO NEXT RECORD NUMBER 
sBUMP COUNTER 

;BR, IF DONE 

;BR, IF NOT DONE YET 


3660004 ee<K<e<< END SUBTEST >>>>>>>>>>>> 
L10060: 
TRAP CsESUB 
:IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


;00 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
;ALL DONE THIS TEST 
TRAP 
. WORD 


CSsExIT 
L10057-. 


;COMMAND PACKET FOR TEST 


sWRITE CHARACTERISTICS COMMAND, WITH , ACK 


sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


;SELECT DRIVE 0 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, 
sADDRESS OF SELECT BLOCK DATA 


;SIZE OF DATA PACKET 


AND ACK 


TEST 1 - HARDW 
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055522 
055522 
055526 
055532 


100005 
003116’ 
000000 
000000 


100205 
100605 
102205 
177777 


000000 
000000 
000000 


012701 054400' 
012721 100004 


. WORD 
T33RB: 
T33WB: .WORD 
. WORD 
T33SZ: .WORD 
-EVEN 
3 
3 
3 
T338F 2: 
T338S0: .BYTE 
T33BS1: .BYTE 
T33S2: .WORD 
T33S3: .WORD 


ARE TEST 1-8 TEST MACRO M1113 01-FEB-84 18:55 


Nie 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER CEXTENT) 


;BSELO AREA 
;BSEL1 AREA 
;SEL 2 AREA 
sDATA AREA 


.EVEN 
;TAPE MOTION PACKET COMMAND VALUES 


T33RN: .WORD 
T33WOR: .WORD 
T33CON: .WORD 

. WORD 
T33CNT: .WORD 
T33CNU: .WORD 
T330LY: .WORD 


102205 
177777 


ooo 


sREREAD DATA (NEXT) 
sREREAD DATA RETRY 
sWRITE CONTINOUS 
sEND OF DATA 


;TAPE TIMER COUNTER STORAGE AREA 
;TAPE TIMER COUNTER STORAGE AREA 
;DELAY COUNTER 


sLOCAL TEXT MESSAGES FOR TEST 


T330TA: . 
TST33ID: 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
: .ASCIZ 
-ASCIZ 
-ASCIZ 


ASCIZ 


EVEN 


3¢ 


‘Read Bus Parity Bit Not Set (XST1), Should Be’ 

‘TSSR Incorrect After Wrong Parity Write Command’ 

‘UNC Bit (XST1) Not Set After Wrong Parity WRITE Command’ 
‘UNC Bit (XST1) Not Set After Wrong Parity READ Command’ 
‘WRITE MISSCELLANEOUS CONT/READ COMMAND Not Accepted’ 
‘Tape Not At BOT After REWIND Command (BOT Not Set In xSTO)’ 
‘Rewind (POSITION) Command Not Accepted’ 

‘TSSR Not Correct After READ Wrong Parity Command’ 
‘Data Compare Error, Data Read From Tape Not Equal To Written’ 


-ASCIZ 


‘Data Parity’ 


é 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;WRITE SUBSYSTEM MEMORY COMMAND 


T33REST: 


#T33PACKET,R1 
#100004 ,(R1)+ 


;SAVE THE REGISTERS 
sSTART OF THE PACKET 
sWRITE SUBSYSTEM MEM, WITH ACK, 


SEQ 156 


TES 
, =e 


T 
T 5: 
3 


HAROWARE 
DATA PARITY TES! 


055536 
055542 


055702 
055702 
055702 
055710 
055714 


TEST 


012721 
005021 


012721 


012737 


012700 
004737 


054410' 


000012 
054422’ 


000024 
000000 


000030 
177777 0544:2' 64%; 


000000 


054530° 


006166' 
063057’ 
016402 


002172’ 


T33RT2: 


TSSRTS: 


. SBTTL 
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@TSSDATA,(R1)> 
(R1)> 


#10. ,(R1)> 
@T33BFR,(R1)-> 
CR1)> 
20.,C(R1)> 
(R1)> 


@0,(R1) 

#24. ,R2 

—_ oo 
-(R2 


@TS3PK2,R1 
#100006, (R1)>+ 
@T33BF2,(R1)> 
C(R1)-> 

06. o(R1)> 
(R1) 


L)e 
@T33BF2,R1 
CR1)> 
(R1) 

PC 


@T33PK3,R1 
(R1)> 
CR1)> 
CR1)> 

(R1) 

Pp 


SEQ 157 


sADDRESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE ZERO 

sNUMBER OF LOCATIONS TC BE » cations 
sALL ONES TO MESSAGE BUFFE 

sNEXT LOCATION 

sAT ENO OF LOOP YET 

sKEEP GOING UNTIL DONE 

sRETURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF DATA BLOCK 
}EXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRETURN 


sSAVE REGISTERS 

sSET UP POINTER ADDRESS 
sCOMMANO SPACE 

sADORESS OF DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA TRANSFER BLOCK 
sRE TURN 


10057: 
TRAP 


TEST 6: OPERATIONS AT EOT 


3 
sTHIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
sCOMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


3 
sTHE TEST CONSISTS OF THE FOLLOWING 1 SUBTEST 


BGNTST 


MOV 
MOV 
JSR 


EPRT1,EPRTSW 
@TST34I0,RO 
PC, TSTSETUP 


T6:: 
sPRIMARY ERROR MESSAGE 
sASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 


CsETsT 


3584 055720 012737 000005 002210° 


C13 
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MOV oS ,LOOPCNT sPERFORM S_ ITERATIONS 
CLR T34CNT sCLEAR TAPE RECORD COUNTER 


sens 055726 005037 060542’ 


: 
sTEST 6, SUBTEST 1 


THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED PROPERLY By 
wim MOTION COMMANDOS. THE FOLLOWING TEST SEQUENCE 
ORMED: 


1. THE TAPE IS REWOUND. 


2. WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL TAPE 
STATUS ALERT TERMINATION IS SEEN WITH EOT=1. ERRORS 
OTHER THAN OCCASIONAL CORRECTABLE OR UNCORRECTABLE DATA 
ERRORS CAUSE A FATAL ERROR REPORT. RECORDS WITH DATA 
ERRORS ARE RETRIED, SO THE TAPE ENDS UP WITH GOOD DATA. 


3. ANOTHER WRITE DATA COMMAND IS ISSUED, AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1. 


4. A WRITE TAPE MARK COMMAND IS ISSUED, AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1. 


5. A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED, AND IT IS 
oe eg Bog hy STATUS ALERT TERMINATION OCCURS, WITH 


6. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
1, IS ISSUED, AND IT IS CHECKED THAT TAPE STATUS ALERT 
TERMINATION OCCURS, WITH EOT=1 AND TMK=1,. 


7. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
1, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT=1. 


8. A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 
1, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH E0T=1., 


9. A READ REVERSE COMMAND IS ISSUED, AND IT i CHECKED 
THAT NORMAL TERMINATION OCCURS, WITH EOT= 


10. A READ FORWARD COMMAND IS ISSUED, AND IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS, WITH EOT=1. 


11. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT=0. 


12. A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 
3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT=1. 


13. A SKIP FILE MARKS REVERSE COMMAND IS ISSUED, WHICH 
SHOULD SKIP ALL THE WAY TO BOT, AND IT IS CHECKED THAT 


D13 
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TEST 6: OPERATIONS AT EOT 
3641 : TAPE STATUS ao TERMINATION OCCURS, WITH EOT=<0, 
3642 3 BOT=1, AND RIB-« 
3643 : 
3644 ; 
3645 ; 
3646 3 
3647 :- 
3648 
3649 055732 T34LO0P: 
3650 
3651 3° 
3652 ; 
aes sTEST 6, SUBTEST 1 
é 
3655 sVERIFIES THAT WRITING OVER THE END-OF -TAPE (EOT) 
3656 sMARKER CAUSES TAPE STATUS ALERT TERMINATION. IF THE 
3657 sTAPE TRANSPORT DOES NOT RECOGNIZE THE EOT MARKER, THE 
3658 sTAPE WILL RUN OFF THE END OF THE REEL, CAUSING THE 
3659 sPROGRAM SEQUENCE TO BE ABORTED WITH A FATAL ERROR 
3660 s INDICATION. IN THIS CASE, CORRECTIVE MAINTENANCE 
3661 sMUST BE PERFORMED USING THE TRANSPORT'S BUILT-IN 
3662 sMAINTENANCE ROUTINE AVAILIABLE VIA THE FRONT PANEL. 
3663 sIF THE CONTROLLER DOES NOT RECOGNIZE THE EOT, THE 
3664 s TRANSPORT WILL FAULT BUT THE TAPE WILL NOT RUN OFF 
3665 ;THE END OF THE REEL BUT THE TRANSPORT MUST BE 
3666 sMANUALLY PLACED BACK ON-LINE TO BE USABLE. THIS IS A 
3667 sFATAL DIAGNOSTIC ERROR. 
3668 : 
3669 
3670 ; 
3671 : 
3672 ge 
3673 
3674 055732 BGNSUB 3 >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>> >>> 
055732 T6.1: 
055732 104402 TRAP CsBSU8 
3675 055734 004737 063102’ JSR PC, T34REST sSET COMMAND PACKET 
3676 055740 004737 063236’ JSR PC, T34RT3 sRESTORE PACKET 
3677 055744 004737 063174' JSR PC, T34RT2 3SET UP OTHER aris PACKET 
3678 055750 012737 176750 060544’ MOV #65000. , T340LY ;SET UP COUNTE 
3679 055756 004737 015664’ 108: JSR PC,SOFINIT 300 INITIALIZE. ON CONTROLLER 
3680 055762 103433 6csS 20$ 3BR IF INIT WAS OK 
3681 055764 DELAY 250 ;DELAY A WHILE 
055764 012727 000250 MOV @250,(PC)+ 
055779 000000 -WORD O 
055772 013727 002116’ MOV LSOLY,(PC)- 
055776 000000 -WORD O 
005367 177772 DEC -6(PC) 
056004 001375 BNE 74 
056006 005367 177756 DEC -220PC) 
056012 001367 BNE .-20 
3682 056014 016501 000002 MOV TSSRAC(RS),R1 3GET TSSR STATUS 
3683 056020 032701 000200 BIT @SSR,R1 sCHECK FOR SSR SET 
3684 056024 001012 BNE 20% 3B8R, WHEN SSR IS SET 
3685 056026 005337 060544’ DEC T34DLY sBUMP COUNTER DOWN 
3686 056032 001351 BNE 108 ;BR, IF MORE DELAY REQUIRED 


3687 056034 005237 002214’ INC FATFLG sERROR COUNT 
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3691 
3692 


011724' 


104406 
013737 
052737 


208; 


002174' 060420’ 
000040 060420' 
060400' 
0105Se' 


002214' 


308: 


010704’ 
000002 
002214’ 


358: 


140005 060530’ 
012703 176750 

003116’ 060532’ 
006654 060536’ 
060530' 


016140’ 
000002 


002214 


013701 060430' 60$; 


000000 40%: 


000004 50$: 


MOV 
ERRDF 


th 
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RO,R1 
ERRNO, SF IERR, SF IMSG 


UNITN, T340SW 
#BITS, T340SwW 
@TS4PACKET ,R4 
PC, ,WRICHR 


ERRNO, WRTMSG, SF IMSG 


PC ,REWINO 
35$ 
TSSRC(RS),R1 
RO,R4 


FATFLG 
ERRNO, T34RWN,PKTSSR 


#140005 , T34PK3 
000. ,R3 


eT34PK3, R4 
R4, TSDBCRS ) 
PC “WAITF 
TSSRCRS),R1 
@SSR,R2 


FATFLG 
ERRNO, T34ET,PKTSSR 


oBIT2,R1 
608 

40$ 
T34BFR+6,R1 


SEQ 160 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
«WORD 601 
«WORD SFIERR 
-WORD SFIMSG 
sLOOP IF SELECTED 
TRAP CsCLP1 


sSET UP DRIVE NUMBER 
s TURN ON HIGH SPEED TO SAVE TIME 
sSUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE CHARACTERISTICS 
sB8R, IF COMMAND ISSUED OK 

sERROR COUNT 
: SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC ny 


CSERHRD 
«WORD 602 
«WORD WRTMSG 
«WORD SFIMSG 
;LOOP IF SELECTED 
TRAP CsCLP1 
sREWIND CALL 
sBR, IF TSSR IS OK (GOOD) 
;GET TSSR 
3SET UP PACKET 
sERROR COUNT 
sTSSR IS INCORRECT AFTER REWIND 
TRAP CSERHRD 
«WORD 603 
-WORD T34RWN 
«WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sWRITE DATA, ACK, CvC*1 
sSET MAX NUMBER OF WRITES 
sSET UP WRITE BUFFER ADDRESS 
sSET UP BUFFER SIZE (4K BYTES) 
sR4 = POINTER TO PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
:SET UP EXPECTED 
sARE THEY EQUAL 
BR, IT MIGHT BE END OF TAPE 
sO0EC RECORD COUNTER 
;BR, IF MORE TO GO 
sERROR COUNT 
sEOT NOT FOUND (USE SHORTER TAPE?) 
TRAP CSERDF 
«WORD 604 
«WORD IT34ET 
-WORD PKTSSR 
sCHECK FOR TAPE STATUS ALERT 
sBR, IF SET 
sKEEP GOING 
sPICK UP xSTO 


TEST 1 - HAROWA 


TEST 6: OPERATI 


3738 0 
3739 056270 
3740 056274 
374i 056276 
3742 056300 
3743 056304 


3744 056306 
3745 056514 


ris 
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010102 
052702 000001 
020102 
001402 
000137 056206' 
104406 
012737 140005 
013737 003116’ 
012737 006654 
012704 060530’ 
010465 000000 
004737 016140’ 
016501 000002 
012702 100204 
020102 
001406 
005237 002214° 
104456 
001135 
061237' 
011736' 
104406 
013701 060430' 
010102 
052702 000001 
020102 
001406 
005237 002214’ 
104456 
001136 
061321°' 
015364’ 
104406 
012737 140011 
012704 060530’ 
010465 000000 
004737 016140’ 
016501 000002 
012702 100204 
020102 
001406 
005237 002214' 
104456 
001137 
061150° 
011736’ 
104406 
013701 060450' 
010102 
052702 000001 


060530’ 
060532’ 
060536' 


060530’ 


80$: 


100$: 


110$; 


#140005, T34PK3 
FREE, T34WB 
©3500. .134SZ 
OT34PK3,R4 

R4, TSOBCRS) 

PC ,WAILTF 
TSSRCRS),R1 
@SC!SSR!IBIT2,R2 
R1,R2 

90$ 

FATFLG 

ERRNO, TS4ET2,PKTSSR 


T34BFR+6,R1 


G 
ERRNO, T34E TN, EXPREC 


#140011, T34PK3 
@T34PK3,R4 
R4,TSOBCRS) 

PC ,WAITF 
TSSRCRS),R1 
@SC!SSR!IBIT2,R2 
R1,R2] 

110$ 

FATFLG 

ERRNO, T34WTM,+KTSSR 


T34BFR+6,R1 
R1,R2 
oBITO,R2 


SEQ 1461 


sSET UP EXPECTED 

sSET THE EOT BIT ON IN EXPECTED 
sWAS THE BIT ON 

sB8R, IF EOT WAS FOUND 

sKEEP LOOKING 

sLOOP IF SELECTED 


sWRITE DATA, ACK, CvC*1 
sSET UP WRITE BUFFER ADDRESS 
sSET UP BUFFER SIZE (4K BYTES) 
sR4 = POINTER TO PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
;BR, IF THEY ARE OK 
sERROR COUNT 
sWRITE TAPE AT EOT FAILED TO SET TSA 
TRAP CSERHRO 


CSsCLP1 


«WORD 605 
«WORD T34ET2 
«WORD PKTSSR 

sLOOP IF SEI ECTED 
TRAP CsCLP1 

sPICK UP XSTO 

sSET UP EXPECTED 

sSET THE EOT a ON IN EXPECTED 

sWAS THE BIT 

;BR, IF EOT was FOUND 

sERROR COUNT 

sEOT BIT (XSTO) NOT SET 
TRAP CSERHRD 
-4ORD 606 
«WORD T34ETN 
-WORO = EXPREC 

sLOOP IF SELECTED 
TRAP CsCLPi 


sWRITE TAPE MARK, ACK, CvC=1 COMMAND 
3R4 = POINTER TO PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
BR, IF STATUS IS GOOD (OK) 
COUNT 


sERROR 
sEOT NOT FOUND (USE vee TAPE?) 


+ ea 
-WwORD 60 
. WORD isaute 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPL 


sPICK UP XSTO 
;SET UP EXPECTED 
sSET THE EOT BIT ON IN EXPECTED 


TEST 


1 - HARDWARE 


TEST 
TEST 6: OPERATIONS AT 
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EOT 


002214’ 


141410 
000001 
060530' 
000000 
016140' 
000002 
000200 


0604 30’ 
100000 


002214' 


060530’ 
060532' 


060530’ 
060532’ 


1208: 


130%: 


140$: 


150$: 


CMP 
BEQ 
I 


G 
ERRNO, '34ETO,EXPREC 


#141410, TS4PK3 
WB 


@ssR, 


G 
ERRNO, T34STM,PKTSSR 


T34BFR+6,R1 


LG 
ERRNO, T34ETN,EXPREC 


G 
ERRNO, T34TMK ,EXPREC 


#140410, T34PK3 
#1, T34WB 
@T34PK3,R4 
R4,TSOBCRS) 


sWAS THE BIT ON 
sBR, IF EOT WAS FOUND 


sERROR COUNT 
sEOT BIT (XSTO) NOT SET 
TRAP 
- WORD 
. WORD 
. WORD 


sLOOP IF SELECTED 


TRAP 
sSKIP TAPE MARK REVERSE ACK, cuese 


;SET NUMBER (1) OF TMS TO SKIP 
3R4 = POINTER TO PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF STATUS IS GOOD (0K) 


SEQ 162 


CSERHRD 


CSsCLP1 
COMMAND 


CSERHRD 


sERROR COUNT 
SKIP TAPE MARK REV. ae a SET TSA 
myORO 
- WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 


sPICK UP XxSTO 
sSET UP EXPECTED 


;SET THE EOT BIT ON IN EXPECTED 


sWAS THE BIT ON 
3BR, IF EOT WAS FOUND 


sERROR COUNT 

sEOT BIT CXSTO) NOT SET 
TRAP 
. WORD 
. WORD 
. WORD 

sLOOP IF SELECTED 
TRAP 


sPICK UP XSTO 
sSET UP EXPECTED 


;SET THE TMK BIT ON IN EXPECTED 


sWAS THE BIT ON 
;BR, IF TMK WAS FOUND 


sERROR COUNT 
sEOT BIT (XSTO) NOT SET 
TRAP 
- WORD 
. WORD 
. WORD 


sLOOP IF SELECTED 


CSsCLPL 


CSERHRD 


CscLPl 


TRAP 
3 SPACE pee gee: REVERSE, zoe CvC=1 CMO 


sSPACE ONE RECORD REVER 
:R4 = POINTER TO PACKET 
sTSSUE COMMAND 
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3885 


057150 


104406 
013701 
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016140° 
000002 
100204 


002214' 


060430’ 
000001 


002214' 


060430’ 
100000 


002214’ 


060430’ 


060530’ 
060532’ 


160$: 


163%: 


165$: 


167$: 


H13 
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PC, ,WAITF 
TSSRCRS),R1 
@SC!SSR!IBIT2,R2 
R1,R2 

160$ 

FATFLG 

ERRNO, T34P0S,PKTSSR 


T34BFR+6,R1 


FLG 
ERRNO, T34E TN, EXPREC 


T34BFR+6,R1 


G 
ERRNO, T34TMK ,EXPREC 


#140410, T34PK3 
01, T34WB 
@T34PK3,R4 

R4, TSDBCRS) 

PC ,WAITF 
TSSRCRS),R1 
@SSR ,R2 


LG 
ERRNO, T34P0S,PKTSSR 


T34BFR+6,R1 


SEQ 163 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
sBR, IT pa BE END OF TAPE 
RROR COUNT 
sEOT NOT FOUND (USE SHORTER TAPE?) 
TRAP CSERHRD 
-WORD 612 
-WORD T34P0S 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 


sPICK UP XxSTO 

sSET UP EXPECTED 

sSET THE EOT BIT ON IN EXPECTED 
sWAS THE BIT ON 

:BR, IF pH WAS FOUND 


ERROR COUNT 

sEOT BIT. (xSTO) NOT SET 
TRAP CSERHRD 
-WORD 613 
«WORD T34ETN 
-WORD EXPREC 

sLOOP IF SELECTED 
TRAP CsCLP1 


sPICK UP XSTO 

sSET UP EXPECTED 

sCLEAR THE TMK BIT ON IN EXPECTED 
sWAS THE BIT ON 

;BR, IF TMK WAS FOUND 


sERROR COUNT 
sEOT BIT CXSTO) NOT SET 


TRAP CSERHRD 
«WORD 614 

ss -WORD T34TMK 
-WORD  EXPREC 


sLOOP IF SELECTED 
TRAP CscLP1 


sSPACE RECORDS REVERSE, ACK, CvC=1 CMD 
sSPACE ONE RECORD REVERSE 

sR4 = POINTER TO PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

;BR, IT MIGHT gr OF TAPE 


sERROR C 
sEOT NOT FOUND (USE — TAPE?) 


RAP CSERHRD 
THORO 615 
«WORD T34P0S 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLP1 


sPICK UP xSTO 
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057154 


057410 


010102 


1708: 


140010 060530' 
000002 060552’ 
060530' 
000000 
016140' 
000002 


000200 


002214’ 


190$: 


060430' 
000001 


002214’ 


2003: 


140401 
003116' 
060530’ 
000000 
016140’ 


000002 
000200 


060530' 
060532' 


002214' 


2058: 


140401 
003116' 
060530’ 
000000 


060530’ 
060532’ 
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R1,R2 
#BITO,R2 
R1,R2 
170$ 


#140010, T34PK3 
02, T34WB 
@T34PK3,R4 
R4, TSOBCRS) 
PC ,WALTF 
TSSRC(RS),R1 

Re 


LG 
ERRNO, T34P0S,PKTSSR 


T34BFR+6,R1 
R1 


FATFLG 
ERRNO, T34ETS,EXPREC 


#140401, T34PK3 
FREE, T34RB8 
OT34PK3,R4 

R4, TSDBCRS) 

PC ,WAITF 
TSSRCRS),R1 
@SSR,R2 


G 
ERRNO, T34RRE ,PKTSSR 


#140401, T34PK3 
FREE, T34RB 
@T34PK3,R4 
R4, TSOBCRS) 


sSET UP_ EXPECTED 


SEQ 164 


sCLEAR THE or ON IN ExPECTED 


sWAS THE BIT 
sBR, IF EOT WAS FOUND 
sLOOP IF SELECTED 


TRAP 
sSPACE RECORDS FORWARD, ACK, CvC=1 


sSPACE TWO RECORDS 

sR4 = POINTER TO PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

;BR, IT MIGHT BE ae OF TAPE 


CsCLP1 


sERROR C 
sEOT NOT "FOUND cust. ies adi 


sLOOP IF SELECTED 


sPICK UP XxSTO 
;SET UP EXPECTED 


TRAP 


;SET THE EOT BIT ON IN EXPECTED 


sWAS THE BIT ON 
;BR, IF EOT WAS FOUND 


sERROR COUNT 

sEOT BIT CXSTO) NOT SET 
TRAP 
- WORD 
. WORD 
. WORD 

sLOOP IF SELECTED 
TRAP 


sREAD REVERSE, ACK, CvC=1 
sSET UP WRITE BUFFER ADDRESS 
sR4 = POINTER TO PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 

:BR, —. = Is SET 


CsCLP1 


T34ETS 
EXPREC 


CsCLP1 


CSERHRD 


PKTSSR 


RROR COUNT 
sEOT NOT FOUND CUSE ae TAPE?) 
THORD 
- WORD 
- WORD 
sLOOP IF SELECTED 
TRAP 


sREAD REVERSE, ACK, CvC=1 
sSET UP WRITE BUFFER ADDRESS 
sR4 = POINTER TO PACKET 

s ISSUE COMMAND 


CscLPl 
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057414 
057420 
057424 
057430 
057432 
057434 
057440 
057440 
057442 
057444 
057446 
057450 


004737 


J13 
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016140' 
000002 
000200 


002214' 


140001 
003116’ 


006654 
060530' 
000000 
016140’ 
000002 
000200 


002214' 


002214' 


060430' 
000001 


002214' 


2108: 
060530' 


060532" 
060536' 


2308: 
060530' 


060532' 
060536' 


235%: 


I 
ERRHRD 


PC ,WAITF 
TSSRCRS),R1 

@SSR ,R2 

R1,R2] 

210% 

FATFLG 

ERRNO, T34RRE ,PKTSSR 


#140001, T34PK3 


G 
ERRNO, T34RRE ,PKTSSR 


#140001, T34PK3 


PC ,WAITF 
@SsR, 


LG 
ERRNO, T34RRE ,PKTSSR 


T34BFR+6,R1 


FLG 
ERRNO, T34ETZ,EXPREC 


SEQ 165 


sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IT MIGHT BE END OF TAPE 


sERROR COUNT 
sEOT NOT FOUND (USE SHORTER TAPE?) 
TRAP CSERHRD 


-WORD 619 
-WORD T34RRE 
«WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCcLP1 
;SET UP WRITE BUFFER ADDRESS 
;SET UP BUFFER SIZE (4K BYTES) 
3R4 = POINTER TO PACKET 
s ISSUE COMMAND 
;WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IT MIGHT BE END OF TAPE 
sERROR COUNT 
sEOT NOT FOUND (USE SHORTER TAPE?) 
TRAP CSERHRD 
-WORD 620 
. WORD T34RRE 
«WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSsCLP1 
sREAD DATA, ACK, CvC=1 
;SET UP WRITE BUFFER ADDRESS 
;SET UP BUFFER SIZE (4K BYTES) 
3R4 = POINTER TO PACKET 
; ISSUE COMMAND 
sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IT MIGHT BE ENO OF TAPE | 
sERROR COUNT 
;EOT NOT FOUND CUSE —— TAPE?) 
TRAP CSERHRD 
-WORD 621 
. WORD T34RRE 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLP1 


sPICK UP xSTO 
;SET UP EXPECTED 
;SET THE EOT BIT ON IN EXPECTED 
;WAS THE BIT ON 
;BR, IF EOT WAS FOUND 
sERROR COUNT 
;EOT BIT (XSTO) NOT SET 


TRAP CSERHRD 
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057656 


001156 
061472' 
015364' 


104406 
012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 


-8 TEST 
T 


002214’ 


060430’ 
000001 


002214' 


002214’ 


060430' 
000001 
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060530’ 
060532" 


060530' 
060532' 


2408: 


250$: 


2608: 


270%: 


K13 


18:55 


#140410, T34PK3 
05, 1T34RB 


@T34PK3,R4 
R4,TSOBCRS) 
PC ,WAILTF 
TSSRCRS),R1 
@SSR,R2 


FLG 
ERRNO, T34P0S ,PKTSSR 


T34BFR+6,R1 


LG 
ERRNO, T34ETC,EXPREC 


#140010, T34PK3 
#5, 1T34RB 
@T34PK3,R4 

R4, TSDBCRS ) 
PC, ,WAITF 
TSSRCRS),R1 
@SSR ,R2 


FLG 
ERRNO, T34ET,PKTSSR 


T34BFR+6,R1 


SEQ 166 
«WORD 622 
«WORD T34ETZ 
-WORD EXPREC 
sLOOP IF SELECTED 
RAP CsCLP1 
sSPACE RECORDS REVERSE, SACK. CvC=1 CMO. 
sNUMBER OF RECORDS TO SPACE 
3R4 = POINTER TO PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
3;BR, IT wTAnO BE END OF TAPE 
RROR COUNT 
{POSITION COMMAND DION’ T — 
TRA CSERHRD 
TWORO 623 
«WORD T34P0S 
«WORD PKTSSR 
;LOCP IF SELECTED 
TRAP CsCLP1 
sPICK UP XSTO 
;SET UP EXPECTED 
;CLEAR THE EOT BIT ON IN EXPECTED 
sWAS THE BIT ON 
;BR, IF EOT WAS FOUND 
sERROR COUNT 
sEOT BIT CXSTO) NOT CLEAR 
TRAP CSERHRD 
-WORD 624 
«WORD T34ETC 
-WORD  EXPREC 


sLOOP IF SELECTED 
CsCLP1 


TRAP 
3SPACE RECORDS FORWARD, ACK, CvC=1 CMD. 
;NUMBER OF RECORDS TO SPACE 
3R4 = POINTER TO PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
sARE THEY EQUAL 
;BR, IT MIGHT BE END OF TAPE 

ROR COUNT 


ERROR 
:TSSR NoT CORRECT 


TRAP CSERHRD 

-WORD 625 

-WORD T34ET 

-WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CsCLPL 


sPICK UP XSTO 

sSET UP EXPECTED 

;SET THE EOT BIT ON IN EXPECTED 
sWAS THE BIT ON 

3BR, IF EOT WAS FOUND 


i. | 


4070 


4079 
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104406 
012737 
012737 
012704 
010465 
012737 
004737 
016501 
032701 
001017 


012727 
000000 
013727 
000000 
005367 


141410 060530' 
000003 060532’ 
060530’ 
000000 
176750 060544’ 
016140' 
000002 
000200 
000250 
002116' 
177772 
177756 
060544 ' 


000200 


002214' 


000004 
060430' 
000001 


002214' 


060430' 
000002 


002214’ 


2808: 


2853: 


2865: 


290%: 


300$: 


CKLOOP 


Lis 
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#141410, T34PK3 
#3, T34RB 
@T34PK3,R4 

R4, TSOBCRS) 
#65000. , T34DLY 
PC ,WAITF 
TSSRCRS),R1 
@SSR,R1 


T34D0LY 
285% 
#SSR ,R2 
R1,Re2 
290% 


R3 
FATFLG 
ERRNO, T34ET,PKTSSR 


eBIT2,R1 


T34BFR+6,R1 


LG 
ERRNO, | 34ETC,EXPREC 


T34BFR+6,R1 


LG 
ERRNO, T34B0T ,EXPREC 


sLOOP IF SELECTED 
TRAP 


SEQ 167 


CsCLP1 


sSKIP FILE MARKS REVERSE ,ACK,CVC=1 COMMAND 


sNUMBER OF FILE MARKS 
3R4 = POINTER TO PACKET 
s ISSUE COMMAND 

;SET UP DELAY COUNTER 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sCHECK FOR SSR SET 

;BR, WHEN SSR IS SET 
sWAIT ABOUT .25 SECONDS 


;BUMP COUNTER 

3BR, IF MORE TO COUNT 

;SET UP EXPECTED 

sARE THEY EQUAL 

;BR, IT MIGHT BE END OF TAPE 
sDEC RECORD COUNTER 


+ ee ates 
-6(PC) 
-4 


22¢PC) 
-20 


CSERHRD 
626 


sERROR COUNT 
sEOT NOT FOUND CUSE SHORTER TAPE?) 
TRAP 
- WORD 
. WORD 


- WORD 
;CHECK FOR TAPE STATUS ALERT 
;PICK UP XxSTO 
;SET UP EXPECTED 
;CLEAR THE EOT BIT IN EXPECTED 
;WAS THE BIT ON 
;BR, IF EOT WAS FOUND 


sERROR COUNT 
sEOT BIT CXSTO) NOT ose 


;LOOP IF SELECTED 


sPICK UP XxSTO 
;SET UP EXPECTED 


;SET THE BOT BIT ON IN EXPECTED 


sWAS THE BIT ON 
;BR, IF pe Hf WAS FOUND 


RROR COUNT 
sEOT BIT. CxsTO) NOT CLEAR 
TRAP 
. WORD 
- WORD 
. WORD 


T34ET 
PKTSSR 


CSERHRD 
627 
T34ETC 
EXPREC 


CSsCLP1 


CSERHRD 
628 
T34B0T 
EXPREC 
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M13 


- Bee R Tine Rt bof TEST MACRO M1113 O1-FEB-84 18:55 


: OPE 


104406 


104403 
023727 
103402 
004737 


004737 
103002 
000137 


104432 
002672 


002214' 
017074' 
016350’ 
055732" 


000017 


3208: 
600$: 


CKLOOP 
ENDSUB 


CMP 
BLO 
JSR 


JSR 
BCC 


JMP 
EXIT 


999%: 


163%: 


FATFLG,@15. 
999% 

PC ,CKDROP 
PC, TSTLOOP 
163$ 


T34L00P 
TST 


3+ 
;LOCAL STORAGE FOR THIS TEST 


3 
s;WRITE SUBSYSTEM MEMORY COMMAND PACKET 


.BLKB 
T34PACKET: 
.» WORD 
. WORD 
. WORD 
. WORD 
T34DATA: 
’ . WORD 
. WORD 
. WORD 
. WORD 
T340SW: .WORD 
T34BFR: .BLKW 
.BLKB 
T34PKe: 
. WORD 
WORD 
. WORD 
. WORD 
.BLKB 
T34PK3: 
. WORD 
T34RB: 
T34WB: .WORD 
. WORD 
T34SZ: .WORD 
EVEN 
3 
T34RSZ: .WORD 
T34CNT: .WORD 
T34D0LY: .WORD 


10-<.-TSV2E7> 


100004 
T34DATA 
.¢] 

8. 
T34BFR 
] 

10. 

0 


0 
2s. 


10-<, -TSV2E7> 


100006 
se 


6. 

10-<, -TSV2E7> 
100005 

te) 


0 
0 


ooo 


SEQ 168 
;LOOP IF SELECTED 
TRAP CSCLP1 
3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
L10062: 
TRAP CSESUB 
3IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
sTRY TO OROP THE UNIT 
300 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
;ALL DONE THIS TEST 
TRAP CSExIT 
«WORD L10061-. 


sCOMMAND PACKET FOR TEST 

sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 

sADDRESS OF MESSAGE BUFFER 

sLENGTH OF MESSAGE BUFFER 


;SELECT DRIVE O 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, AND ACK 
sADDRESS OF SELECT BLOCK DATA 


3SIZE OF DATA PACKET 


sWRITE COMMAND, AND ACK 
sADDRESS OF WRITE/READ BUFFER 
sSIZE OF BUFFER CEXTENT) 
sLARGEST TAPE RECORD IN BYTES 


; TAPE RECORD COUNTER 
;DELAY COUNTER 


N13 
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TEST 6: OPERATIONS AT EOT 

4138 060546 T34BF 2: 

4139 060546 010 T348S0: .BYTE 10 ;BSELO AREA 

4140 060547 200 T348S1: .BYTE 200 ;BSEL1 AREA 

4141 060550 000000 T34S2: .WORD O ;SEL 2 AREA 

4142 060552 000000 T34S3: .WORD 0O ;DATA AREA 

4143 ; 

4144 ; 

4145 .EVEN 

sree ; TAPE MOTION PACKET COMMAND VALUES 

14 

4148 060554 100005 T34WD0: .WORD 100005 ;WRITE DATA (NEXT) 

4149 060556 100405 T34WOR: .WORD 100405 sWRITE DATA RETRY 

4150 060560 102005 T34CON: .WORD 102005 sWRITE CONTINOUS 

atas 060562 177777 . WORD 177777 sEND OF DATA 

1 

4153 

4154 3¢ 

4155 ;LOCAL TEXT MESSAGES FOR TEST 

4156 s- 

rt +4 

41 

4159 060564 124 123 123 T34PO0S: .ASCIZ ‘TSSR Incorrect After Position (SPACE RECORDS) Command’ 

4160 060652 127 122 111 T34ETO: .ASCIZ ‘WRITE TAPE MARK At EOT Failed To Set EOT Bit (xSTO)' 

4161 060736 122 105 101 T34RRE: .ASCIZ ‘READ Command At EOT Didn'‘t Give Normal Termination (TSSR)’ 

4162 061027 125 156 141 T34ETC: .ASCIZ ‘Unable To Clear EOT Indication, (XSTO) Bit 0’ 

4163 061104 122 105 127 T34B0OT: .ASCIZ ‘REWIND Failed To Set BOT (XSTO) Bit’ 

4164 061150 127 122 111 T34WTM: .ASCIZ ‘WRITE TAPE MARK At EOT Failed To Set Tape Status Alert’ 

4165 061237 127 122 111 T34ET2: .ASCIZ ‘WRITE DATA At EOT Failed To Set Tape Status Alert’ 

4166 061321 127 122 111 T34ETN: .ASCIZ ‘WRITE DATA At EOT Failed To Set EOT Bit (xSTO)’ 

4167 061400 123 120 101 T34ETS: .ASCIZ ‘SPACE RECORDS FORWARD At EOT Failed To Set EOT Bit (xSTO)’ 

4168 061472 122 105 101 T34ETZ: .ASCIZ ‘READ DATA At EOT Failed To Set EOT Bit (xSTO)’ 

4169 061550 124 123 123 T34STM: .ASCIZ ‘TSSR Incorrect After SKIP TAPE MARK REVERSE At EOT’ 

4170 061633 120 117 123 T34TMK: .ASCIZ ‘POSITION Command At EOT Onto Tape Mark Failed To Set TMK (XSTO)’ 

4171 061733 127 122 111 T34SSR: .ASCIZ ‘WRITE Command Not Accepted’ 

4172 061766 105 117 124 T34ET: .ASCIZ ‘EOT Not Found In 65000 3.5K Writes, (Use Shorter Tape)’ 

4173 062055 127 122 111 T34EOT: .ASCIZ ‘WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT' \ 

4174 062133 124 123 123 T34T™: .ASCIZ ‘TSSR Not Correct After WRITE Command Re ject’ 

4175 062207 122 145 167 T34RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 

4176 062256 122 101 115 T34RNC: .ASCIZ ‘RAM Error, Correct Data Pattern Not In Ram’ 

4177 062331 124 123 123 T34AM3: .ASCIZ ‘TSSR Init. Failed After WRITE Command’ 

4178 062377 104 162 151 T340FL: .ASCIZ ‘Drive 7 Select Failed To Set "OFL” In TSSR’ 

4179 062452 124 123 123 T34WOD: .ASCIZ ‘TSSR Not Correct After WRITE DATA Command, SWB Bit Set’ 

4180 062541 124 123 123 T34WOC: .ASCIZ ‘TSSR Not Correct After WRITE DATA Command, Check For Tape Offline’ 

4181 062643 103 126 103 T34vVCK: .ASCIZ ‘CVC Set, Didn'‘t Reset VCK In Message Buffer’ 

4182 062716 124 123 102 T34BA: .ASCIZ ‘TSBA Not Correct After WRITE DATA Command’ 

4183 062770 127 122 111 T34WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 

4184 063057 117 160 145 TST34ID: -ASCIZ ‘Operations At EOT' 

4185 .EVEN 

4186 3+ 

4187 ; 

4188 ;sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

4189 sWRITE SUBSYSTEM MEMORY COMMAND 

4190 : 

4191 3- ‘ 

4192 - "2 P 

4193 063102 T34REST: g pire 


4194 063102 SAVREG fe ‘ "  3SAVE THE REGISTERS 
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TEST 6: OPERATIONS AT EOT 
4195 063106 012701 060400 MOV OT3S4PACKET,R1 sSTART OF THE PACKET 
4196 063112 012721 100004 MOV 100004 ,(R1)> sWRITE SUBSYSTEM MEM, WITH ACK 
4197 063116 012721 060410’ MOV O@TS4DATA,(R1)> sADDRESS OF CHARAISTICS DATA BLOCK 
4198 063122 005021 CLR (R1)> sEXTENDED ADDRESS 
4199 063124 012721 000012 MOV #10. ,(R1)> sSIZE OF DATA BLOCK IN BYTES 
4200 063130 012721 060422’ MOV OT34BFR,(R1)> sADORESS OF MESSAGE BUFFER 
4201 063134 005021 CLR (RL) 
4202 063136 012721 000024 MOV 020. ,(R1)» sLENGTH OF MESSAGE BUFFER 
4203 063142 005021 CLR (R1)> 
4204 063144 012711 000000 MOV 00,(R1) sSELECT ORIVE ZERO 
4205 063150 012702 000030 MOV 024, ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
4206 063154 012762 177777 060422' 643: MOV 0177777, TS4BFR(R2) sALL ONES TO MESSAGE BUFFER 
4207 063162 005742 TST -(R2) sBUMP DOWN TO NEXT LOCATION 
4208 063164 020227 000000 CMP R2,00 sR2 AT ZERO YET 
4209 063170 001371 BNE 64% sKEEP GOING UNTIL DONE 
4210 063172 000207 RTS PC sRE TURN 
4211 
4212 
4213 063174 TS4RT2: 
4214 063174 SAVREG sSAVE THE REGISTERS 
4215 063200 012701 060510' MOV @T34PK2,R1 sSTART OF THE PACKET 
4216 063204 012721 100006 MOV #100006 ,(R1)> sWRITE SUBSYSTEM MEM. WITH ACK 
4217 063210 012721 060546’ MOV @TS4BF2,(R1)- sADDRESS OF DATA BLOCK 
4218 063214 005021 CLR (R1)> sEXTENDED ADDRESS 
4219 063216 012721 000006 MOV 06.,(R1)> sSIZE OF DATA BLOCK IN BYTES 
4220 063222 012701 060546’ MOV @T34BF2,R1 sPOINT TO DATA SEL AREA 
4221 063226 005021 CLR (R1)> 
4222 063230 005021 CLR (R1)> 
4223 063232 005011 CLR (R1) 
4224 063234 000207 RTS PC sRE TURN 
4225 063236 T34RT3: 
4226 063236 SAVREG sSAVE THE REGISTERS 
4227 063242 012701 060530’ MOV OT34PK3,R1 sSTPRT OF THE PACKET 
4228 063246 012721 100005 MOV 100005,(R1)+ sWRITE TAPE. WITH ACK 
4229 063252 005021 CLR (R1)> sADDRESS OF DATA BLOCK 
4230 063254 005021 CLA CR1)> sEXTENDED ADDRESS 
4231 063256 005011 CLR (Ri) sSIZE OF DATA BLOCK 
4232 063260 000207 RTS PC sRE TURN 
4233 063262 ENOTST 
063262 L 10061: 
som! 063262 104401 TRAP CseTsT 
4235 -SBTTL TEST 7: EXTENDED MODE FEATURES 
4236 ge 
4237 ' 
4238 ; THIS TEST VERIFIES THE OPERATION OF COMMANDS ONLY AVAILABLE WHEN 
4239 ’ THE CONTROLLER IS IN THE EXTENDED FEATURES MODE. THESE COMMANDS 
4240 ; ARE : 
4241 3 
aoat : ; REWIND WITH IMMEDIATE INTERRUPT 
: 
4244 : IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE, IT 
aoes ; IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND. 
3 
4247 ; 
4248 ; 
3 


THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS 


tE8t ‘> 


4250 
4251 


C14 
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i 
i 
i 
3 * 
063264 BGNTST 
063264 T7:: 
063264 012737 006166' 002172' Mov GEPRT1,EPRTSW sPRIMARY ERROR MESSAGE 
063272 012700 073013' MOV @TST35ID,RO sASCII MESSAGE TO IDENTIFY TEST 
063276 004737 016402’ JSR PC, TSTS!. TUP 300 INITIAL TEST SETUP 
063302 012737 000005 002210’ MOV @5 ,LOOPCNT sPERFORM 5S ITERATIONS 
063310 005037 067416' CLR T3SCNT sCLEAR TAPE RECORD COUNTER 
3° 
é 
sTEST 7, SUBTEST 1 
. 
t 
3 VERIFIES THAT A REWIND WITH IMMEDIATE INTERRUPT COMMAND, ISSUED 
3 WITH THE INTERRUPT ENABLE (IE) BIT CLEAR (0), CAUSES ALMOST 
; IMMEDIATE TERMINATION BUT NO INTERRUPT. STATUS IN THE MESSAGE 
; BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION 
; IN PROGRESS (OPM) STATUS BITS ARE BOTH SET. 
$ 
3 
a 
; 
+ 
§° 
063314 T3SLOOP: 
063314 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST »>>>>»>>>>>>> 
063314 T7.1: 
063314 104402 TRAP Cs6SUB8 
063316 004737 073044' JSR PC, T35SREST 3SET COMMAND PACKET 
063322 005037 002216’ CLR INTRECV = sCLEAR INTERRUPT RECEIVED FLAG 
063326 004737 073136' JSR PC, T3SSRT2Q 3SET UP OTHER COMMAND PAC’ * 
063332 004737 073200' JSR PC, T35SRT3 sSET UP OTHER COMMAND PAC .cT 
063336 012737 176750 067422: MOV #65000. ,7350L1 sSET UP DELAY COUNTER 
063344 005037 067416’ CLR T3SCNT sCLEAR COUNTER 
063350 004737 015664’ 108: JSR PC ,.SOF INIT 300 INITIALIZE “2. CONTROLLER 
063354 103426 BCS 2038 s6R IF INIT WAS OK ; 
063356 DELAY 250 sDELAY ABOUT .25 SEC 
063356 012727 000250 MOV @250,(PC)>+ 
063362 000000 «WORD c] 
063364 013727 002116’ MOV LSOLY,CPC)- 
063370 000000 . WORD 0 
063372 005367 177772 DEC > i 
063376 001375 BNE 
063400 005367 177756 DEC “22°C 
063404 001367 BNE 
063406 005337 067422' DEC T350L 1 sBUMP COUNTER 
063412 001356 BNE 108 3BR, IF COUNTER NOT DONE 
063414 005237 002214' INC FATFLG sERROR COUNT 
063420 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
063422 ERRDOF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
063422 104455 TRAP CSERDF 
063424 001275 .WORD 701 
063426 003642’ . WORD SFIERR 


TEST 1 
TEST 


011724' 


013737 


012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 


002174' 
067240' 
0105Se' 


002214' 


010704' 


000002 
002214' 


067260' 


067376' 
067372’ 


067370' 


D14 
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7: EXTENDED MODE FEATURES 


208; MOV UNITN, T350SW 

MOV OTSSPACKET ,R4 

JSR PC ,WRICHR 

BCS 25% 

INC FATFLG 

MOV RO,R1 

ERRHRD ERRNO,WRIMSG, SF IMSG 
253: CKLOOP 

JSR PC ,REWIND 

BCS 30$ 

MOV RO,R4 

MOV TSSRC(RS),R1 

INC FATFLG 

ERRHRD ERRNO, TSSRWN,PKTSSR 
308: CKLOOP 

MOV T3SBFR+6,R1 

MOV R1,R2 

BIS oBIT1,R2 

CMP R1,R2 

BEQ 403% 

INC FATFLG 

ERRHRD ERRNO, T3SB80T ,EXPREC 
40%: CKLOOP 

MOV #20. ,R3 

MOV @256.,135S2 

MOV FREE, T35wB8 


FPSSSHHSSSHSHESSHESESHEHEEHESEEEHEEEEEEHAEEEOE 


3 
sWRITE DATA,ACK,CvC*1 COMMAND 


3 P 
§OO06006666666668666606666066660646606600466086 


MOV #140005, T35PK3 

MOV OT3SPK3,R4 
50$: MOV R4, TSOBCRS) 

JSR PC ,WAITF 

MOV TSSRCRS),R1 

MOV @SSR,R2 

CMP R1,R2 

BEQ 60$ 


SEQ 172 
-WORD SFIMSG 
sSET UP DRIVE NUMBER 
sSUBROUTINE NEEDS PACKET ADDRESS 
sISSUE WRITE CHARACTERISTICS 
s6R, IF pr ta ISSUED OK 
RROR COUNT 
3 SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
. WORD 702 
-WORD WRTMSG 
-WORD SFIMSG 
3LOOP IF SE'.ECTED 
TRAP Cscie i 
sCALL TAPE REWIND COMMAND 
3BR, IF NO PROBLEM 
3SET UP REWIND PACKET ADDRESS 
;GET TSSR FOR PRINTOUT 
sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
WORD 703 
. WORD T35RWN 
.WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPl1 
;PICK UP XxSTO 
;SET UP EXPECTED 
:SET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
;BR, IF a (OK) 
OR COUNT 
3 TAPE not a BOT AFTER - "yy 
CSERHRD 
MORO 704 
. WORD T3560T 
WORD EXPREC 
;'.00P IF SELECTED 
TRAP CSCLP1L 
sNUMBER OF RECORDS 
sSET UP RECORD SIZE 
sADDRESS OF WRITE BUFFER 
sWRITE DATA,ACK,CVC=1 COMMAND 


sSET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

3GET TSSR CONTENTS 

3SET UP EXPECTED 

;ARE THEY EQUAL 

3;6R, IF OK 
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TEST 7: EXTENDED MDE Pekr Oe s . =e is 

4350 063636 005237 002214' INC FATFLG RROR COUNT 

4354 063642 ERRSOFT ERRNO, T35WDE ,PKTSSR :TSSR INCORRECT AFTER was — 
063642 104457 CSERSOFT 
063644 001301 TNORO 705 
063646 070146' » WORD T35wDOE 
063650 011736’ . WORD PKTSSR 

4355 063652 60$: CKLOOP ;LOOP IF SELECTED 
063652 104406 TRAP CSCLP1 

4356 063654 005303 DEC R3 sBUMP RECORD COUNTER 

anes 063656 001355 BNE 50% ;BR, IF MORE RRECORDS TO COUNT 

4359 FSSOAHHARESASEHAEHESSEHEEHEEHREEEEHEEEEEEEDE 

4360 3 

tt | sWAIT FOR TAPE TO STOP ALL MOTION 

3 

4363 FOMSAAASASAHAEAEAEAEEAREEEEEHEEEEEOEHEEEEE 

4364 

4365 063660 012737 000012 067422’ MOV 10. ,T35D0LY ;SET UP DELAY COUNTER 

4366 063666 708: DELAY 250 sWAIT ABOUT .25 SEC 
063666 012727 000250 MOV #250,(PC)+ 
063672 000000 -WORD O 
063674 013727 002116’ MOV LSDLY,(PC)+ 
063700 000000 : -WORD O 
063702 005367 177772 DEC -6(PC) 
063706 001375 BNE -4 
063710 005367 177756 DEC 22¢PC) 
063714 001367 BNE -20 

4367 063716 005337 067422’ DEC T3SOLY sBUMP COUNTER DOWN 

4368 063722 001361 BNE 708% 38R, IF MORE TO DELAY 

4369 063724 005737 002220’ TST EXTFEA sCHECK FOR EXTENDED FEATURES SW SWITCH 

4370 063730 001042 BNE 110% ;B8R IF SWITCH IS ON 

4371 063732 112737 000200 067401’ MOVB #200, 1358S1 sWRITE MISCELLANEOUS CONT/READ STATUS 

4372 063740 112737 000010 067400’ MOVB #10, 7358S0 sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 

4373 063746 012704 067350’ MOV @T35PK2,R4 sWRITE SUBSYS MEM PACKET 

4374 063752 010465 000000 MOV R4, TSOBCRS) : ISSUE COMMAND 

4375 063756 004737 016226’ JSR PC,CHKTSSR sWAIT FOR SSR 

4376 063762 103407 BCS 90$ 38R, IF NO ERROR 

4377 063764 010001 MOV RO,R1L ;ERROR, a TSSR 

4378 063766 005237 002214' INC FATF LG RROR COUNT 

4382 063772 ERRHRD ERRNO, T35SSR,PKTSSR :TSSR note CORRECT AFTER a MISCELLANEOUS 
063772 104456 RAP CSERHRD 
063774 001302 "WORD 706 
063776 072302' -WORD T35SSR 
064000 011736' . WORD PKTSSR 

4383 064002 90$: CKLOOP ;LOOP IF SELECTED 
064002 104406 TRAP CSCLP1L 

4384 064004 012704 067240’ MOV OTSSPACKET,R4 ;SUBROUTINE NEEDS PACKET ADORESS 

4385 064010 004737 010552: JSR PC, ,WRICHR s ISSUE WRITE CHARACTERISTICS 

4386 064014 103407 BCS 100$ 38R, IF COMMAND ISSUED OK 

4387 064016 005237 002214’ INC FATFLG sERROR COUNT 

4391 064022 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

4392 064024 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERIS(ISC FAILED 
064024 104456 TRAP CSERHRD 
064026 001303 .« WORD 707 
064030 005046' . WORD WRTMSG 
064032 011724’ . WORD SF IMSG 


4393 064034 1008; CKLOOP sSCOPE LOOP 


TEST 1 - HARDWARE TEST 


TEST 


4394 
4395 
43% 
4397 


4411 
4412 
4413 
4414 
4415 
4416 
4420 


4421 


4422 
4423 
4424 
4425 
4429 


4430 


4431 
4432 
4433 
4434 
4435 
4436 
4437 


064034 
064036 
064044 


7; EXTENDED MODE 


104406 
012737 
005037 


012737 
012704 
010465 
016501 
032701 
001021 
005237 


012727 
000000 
013727 
000000 
005367 


001375 
005367 


F14 
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176750 
067416' 


142012 
067370' 


002116’ 
177772 
177756 
067422' 
000200 


002214' 


002216’ 


000002 
002214’ 


067422' 


067370' 


110$; MOV 


CLR 


#65000. , TSSOLY 
T3SCNT 


TRAP 
sSET UP DELAY COUNTER 
sDELAY COUNTER 


J APHRAAAAHAASAHRASSESAASEEDRESASEEHEEEEDEAEEEEE 


; 
sREWIND IMED. INTERRUPT,ACK,CvC*1,I1E*0 COMMAND 


3 
J POHSESAHASAEEHHEHKASEHESEOEEEEEEHEEEEEEEEE 


MOV 142012, T35PK3 

MOV @T35PK3,R4 

MOV R4, TSOBC(RS) 
1208: MOV TSSRCRS),R1 

BIT @SSR,R1 

BNE 130$ 

INC T3SCNT 

DELAY 1 

DEC T350LY 

BNE 120$ 
1308: MOV @SSR ,R2 

CMP R1,R2 

BEQ 140$ 

INC FATFLG 

ERRHRD ERRNO, T35SRWE ,.PKTSSR 
140$: CKLOOP 

TST INTRECV 

BEQ 150% 

MOV TSSRCRS),R1L 

INC FATFLG 

ERRHRD ERRNO, T35INT,PKTSSR 
150$: CKLOOP 


sREWIND IMED. INTERRUPT ,ACK,CvC- 
;SET UP R4 WITH PACKET ADDRESS 

s ISSUE COMMAND 

;GET TSSR CONTENTS 

sCHECK FOR SSR SET 

36R, WHEN SSR IS SET 

sBUMP THE CYCLE COUNTER 

;DELAY TO KEEP COUNTER DOWN 


MOV 
. WORD 
MOV 
. WORD 
DEC 
BNE 
DEC 
BNE 
sOROP DEAD TIMER BUMP DOWN 
:BR, IF MORE TIME TO GO 
3SET UP EXPECTED 
sARE THEY EQUAL 
3;BR, IF OK 
sERROR COUNT 
:TSSR INCORRECT AFTER ae A DATA 
THORO 
- WORD 
. WORD 
sLOOP IF SELECTED 
TRAP 
sCHECK FOR INTERRUPTS 
;BR, IF NO INTERRUPTS DETECTED 
;GET TSSR STATUS FOR PRINTOUT 
sERROR COUNT 
s INTERRUPT RECEIVED (BAD) 
TRAP 
- WORD 
. WORD 
. WORD 
sLOOP IF SELECTED 
TRAP 


FOSHSEHSSEHSHASHESSESSESEHEHSHEHEEOHEHSEHEDAEEHESD 


; 
sNOW CHECK FOR THE MOTION BITS SET 


i 
FASS SESHHHEHEHASASESSESHEAESSEHSEESEEHESEEEAEHEE 


SEQ 174 


CsCLP1 


1,IE*0 COMMAND 


91,(PC)- 
0] 


-6(PC) 
4 


"22(PC) 
= 20 


T3SRWE 
PKTSSR 


CsCLP1 


CSERHRD 
709 
T3SINT 
PKTSSR 


CsCLP1 


T 
T 


EST 1 
EST 

4438 
4439 
4440 
4441 
4442 
4443 
4447 


4448 


4449 
4450 
4451 
4452 
4453 
4454 
4458 


4459 


4460 
4461 


4462 
4463 
4464 


4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 


HARDWARE TE 


064220 
064224 
064226 
064232 
064234 


7: EXTENDED 


013701 
010102 


104406 
012737 


012727 
000000 
013727 


000000 
005367 
001375 
005367 
001367 
005337 
001361 


104403 
023727 
103402 
004737 


G14 
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067270' 
000200 


002214' 


067274’ 
100000 


002214' 


000027 
000250 
002116' 
177772 
177756 
067422' 


002214’ 
017074' 


067422' 


000017 


160$; 


170$;: 


MOV 
DELAY 


DEC 
8 


NE 
ENDSUB 


CMP 
BLO 
JSR 


3° 


CKLOOP 


ce 


FATFLG 
ERRNO, TSSMOT ,EXPREC 


T3SBFR+12,R1 

R1,R2 

oBIT15,R2 

R1,R2 

170$ 

FATFLG 

ERRNO, T3SOPM,EXPREC 


023.,T350LY 
250 


T3SOLY 
175$ 


—— #15. 
pe. CxDROP 


5 
sTEST 7: SUBTEST 2 


sPICK UP XSTO 
sSET UP EXPECTED 
sSET MOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
sBR, IF EQUAL (OK) 
sERROR COUNT 
sTAPE NOT AT BOT AFTER REWIND 
TRAP 


;sLOOP IF SELECTED 


sPICK UP XxST2 

sSET UP EXPECTED 

;SET OPM BIT IN EXPECTED 

sD0ES EXP = REC'D 

;BR, IF EQUAL (OK) 
sERROR COUNT 

;0PM BIT NOT SET 


;LOOP IF SELECTED 


;SET UP DELAY COUNTER 
sSTART OELAY 


;BUMP DELAY COUNTER 
;8R, IF MORE DELAY 


L10064: 
TRAP 
:IS ERROR COUNT AT 25 
3BR, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


WITH THE INTERRUPT ENABLE (IE) BIT SET (1), CAUSES ALMOST 
IMMEDIATE TERMINATION AND AN INTERRUPT. 
BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION 
IN PROGRESS (OPM) STATUS BITS ARE BOTH SET. 


STATUS IN THE MESSAGE 


SEQ 175 


CsCLP1 


CSERHRD 
711 
T3S0PM 
EXPREC 


CsCLP1 


+ tates 
 eatienatecads 
a ee 


“2acc) 
-20 


CsESUB 


TEST 1_- HARDWARE TEST 


TEST 


7; EXTENDEO E 


012727 
000000 
013727 
000000 


H14 
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000000 
073044’ 


000250 
002116’ 
177772 
177756 
067422’ 
002214' 


002174' 
067240’ 
0105Se2' 


002214' 


010704’ 


000002 
002214’ 


067422' 


067260’ 


10$: 


20s: 


258: 


BGNSUB 


SETPRI 


N 
ERRHRD 


SEQ 176 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
17.2: 


TRAP 
@PRIOO sENABLE INTERRUPTS. 
MOV 
TRAP 
PC, T3SREST 3SET COMMAND PACKET 
INTRECV sCLEAR INTERRUPT RECEIVED FLAG 
PC, T3SRT2 sSET UP OTHER COMMAND PACKET 
PC, T3SRT3 sSET UP OTHER COMMAND PACKET 
#65000. , TSSDLY sSET UP DELAY COUNTER 
T3SCNT sCLEAR COUNTER 
PC, SOF INIT s00 INITIALIZE ON CONTROLLER 
20% 38R IF INIT WAS OK 
250 sDELAY ABOUT .25 SEC 
MOV 
. WORD 
MOV 
. WORD 
DEC 
BNE 
DEC 
BNE 
T3SOLY sBUMP COUNTER 
10$ ;BR, IF COUNTER NOT DONE 
FATFLG sERROR COUNT 
R sCONTENTS OF TSSR REGISTER 


RO,R1 
ERRNO, SF IERR, SF IMSG 


UNITN, T3S0SW 
@T3SPACKET ,R4 
PC,WRTCHR 


RO, 
ERRNO, WRTMSG, SF IMSG 


PC,REWIND 
30% 


RO,R4 
TSSRCRS),R1 
FATFLG 

ERRNO, T3SRWN,PKTSSR 


sFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 
. WORD 
;SET UP DRIVE NUMBER 


CsBSUB 


#PRIOO,RO 
C$SPRI 


anette 
Semillon 
-6( PC) 

.-4 

-22(PC) 
--20 


SFIERR 
SF IMSG 


sSUBROUTINE NEEDS PACKET ADDRESS 


sISSUE WRITE CHARACTERISTICS 

;BR, IF COMMAND ISSUED OK 
sERROR COUNT 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC se 


sLOOP IF SELECTED 
TRAP 


R 
sCALL TAPE REWIND COMMAND 
sBR, IF NO PROBLEM 
;SET UP REWIND PACKET ADDRESS 
sGET TSSR CONTENTS 

sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP 


WRTMSG 
SF IMSG 


CsCLP1 


CSERHRD 


TEST 1_- HARDWARE TEST 
7: EXTENDED MODE 


TEST 


001312 

070524' 

011736' 

067270' 


000002 


002214' 


000024 
000400 


013737 003116’ 


012737 140005 


067370' 
000000 
016140' 


000002 
000200 


002214' 


012737 000012 
012727 000250 
090000 
013727 002116’ 
000000 


067376' 
067372" 


067370" 


067422° 


308: 


40$; 


I14 


-8 TEST MACRO M1113 01-FEB-84 18:55 
PEATURES “ ‘ 


CKLOOP 

MOV T35BFR+6,R1 
MOV R1,R2 

BIS oBIT1,R2 
CMP R1,R2 

BEQ 40$ 

INC FATFLG 
ERRHRD ERRNO, T3SB0T ,EXPREC 
CKLOOP 

MOV #20. ,R3 

MOV #256. , T35SZ 
MOV FREE, T3SwB 


sLOOP IF SELECTED 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 

sBR, IF EQUAL (OK) 


sERROR COUNT 

sTAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
- WORD 
. WORD 

3LOOP IF SELECTED 
TRAP 


sNUMBER OF RECORDS 
sSET UP RECORD SIZE 
sADDRESS OF WRITE BUFFER 


J SMAASSAHAHALAASESESESAESEHAREEEEESEEEAEEED 


3 
sWRITE DATA,ACK,CVC=1 COMMAND 
; 


J SSSAAAAARESEASESEAAEESESEEEEEEEEEEEEEEDEE 


50$: 


60$: 


MOV #140005 , T3SPK3 
MOV @T3SPK3,R4 

MOV R4, TSOBCRS) 
JSR PC ,WAITF 

MOV TSSRCRS),R1 
MOV @SSR ,R2 

CMP R1,R2 

BEQ 60$ 


INC FATFLG 
ERRHRD ERRNO, TSSWDE ,PKTSSR 


CKLOOP 


sWRITE DATA,ACK,CVC=1 COMMAND 


;SET UP R4& WITH PACKET ADDRESS 


s ISSUE COMMAND 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
;SET UP EXPECTED 
sARE THEY EQUAL 

sBR, IF OK 


FPAHEASHHSASEHAHAEEEEEAAEASHSEESEEREEEREEEESD 


; 
sWAIT FOR TAPE TO STOP ALL MOTION 


; 
FFFOSEHEHHEEEEEHESEESESEESESEEHEDEAEEEEEEEEED 


70$: 


MOV 
DELAY 


#10.,T350LY 
250 


SEQ 177 


714 
T3SRWN 
PKTSSR 


CsCLP1 


CSERHRD 
715 
T3580T 
EXPREC 


CsCLP1 


sERROR COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 716 
«WORD TS3SWDE 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLP1 
sSET UP DELAY COUNTER 
sWAIT ABOUT .25 SEC 
MOV #250, (PC)+ 
-WORD 0 
LO.» APE De 


TEST 1 - HARDWARE TEST 


TEST 


4570 


4585 


7: EXTENDED MODE 


005367 


011724' 


104406 
012737 
005037 


012737 
012704 
010465 
016501 
032701 
001021 
005237 


012727 
000000 


J14 
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FEATURES 
177772 
177756 
06742. 
002220' 
000200 
000010 
067350’ 


000000 
016226' 


002214' 


067240' 
010552’ 


002214’ 


176750 
067416' 


142212 
067370' 


067416' 
000001 
002116' 
177772 


067401’ 
067400‘ 


067422' 


067370' 


100$: 
110$: 


PC,CHKTSSR 
90$ 
RO,R1 


FATFLG 
ERRNO, T35SSR,PKTSSR 


@T3SSPACKET ,R4 
PC,WRTCHR 


100$ 

FATFLG 

RO,R1 

ERRNO, WRTMSG, SF IMSG 


#65000. , TSSOLY 
T3SCNT 


SEQ 178 
DEC — 
BNE 
DEC "32¢PC) 
BNE .-20 


sBUMP COUNTER DOWN 

sBR, IF MORE TO DELAY 

sCHECK FOR EXTENDED FEATURES SW SWITCH 
sBR IF SWITCH IS ON 

sWRITE MISCELLANEOUS CONT/READ STATUS 


sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 


sWRITE SUBSYS MEM PACKET 
SUE COMMAND 


;6R, IF NO ERROR 
ERROR, ot TSSR 


RROR COUNT 
;TSSR NC? CORRECT AFTER wRT. 


MISCELLANEOUS 
TRAP CSERHRD 
«WORD 717 
«WORD T35SSR 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 


;SUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE CHARACTERISTICS 
3BR, IF COMMAND ISSUED OK 

sERROR COUNT 


i SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 


TRAP CSERHRD 

-WORD 718 

-WORD WRTMSG 

-WORD SFIMSG 
;SCOPE LOOP 

TRAP CsCLP1 


3SET UP DELAY COUNTER 
;DELA\ COUNTER 


J SSSASAAASSHASHSASEHESAADESASEESESAEEEEDE 


i 
sREWIND IMMEDIATE ,ACK,CVC=1,IE=1 COMMAND 


; 
FPSSAAHESEHASESSESESEAESESEHASSEEEHAESEEEOEEDSEE 


120$: 


INC 
DELAY 


#142212, T35PKS3 
@T35SPK3,R4 

R4, TSOBCRS) 
TSSRCRS),R1 


sREWIND IMMEDIATE ,ACK,CvC=1,IE=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 

; ISSUE COMMAND 

:GET TSSR CONTENTS 

sCHECK FOR SSR SET 


MOV #1,(PC)- 
-WORD O 

MOV LsDL1,(PC)- 
DEC -6(PC) 


TEST 1 - HARDWARE TEST 
TEST 7: EXTENDED MODE 


013701 
010102 


072552" 


K14 


1-8 TEST MACRO M1113 01-FEB-84 18:55 
FEATURES 


177756 
067422’ 
000200 


002214’ 


002216' 


000002 
002214’ 


067270’ 
000200 


002214’ 


067274' 
100000 


002214’ 


130$: MOV 


140$: 


150$: CKLOOP 


F G 
ERRNO, T3SRWE ,PKTSSR 


INTRECV 
S0$ 


1 
TSSRCRS),R1 
FATFLG 

ERRNO, T3SNIN,PKTSSR 


{ SHSHOAAAAEAAAEASESADESEAEABRREAEEASAEAEED 


; 
sNOW CHECK FOR THE MOTION BITS SET 


3 
J SSRAAAAAAEASEASEAAEASAREEHEAEEESEEHEEAEEDRE 


160$;: 


ERRHRD 


T3SBFR+6,R1 

R1,R2 

#BIT7,R2 
R2 


G 
ERRNO, T3SMOT ,EXPREC 


T35BFR+12,R1 
R1,R2 
#BIT15,R2 
R1,R2 


LG 
ERRNO, T3SOPM,EXPREC 


SEQ 179 
BNE .-4 
DEC -22(PC) 
BNE --20 
sDROP DEAD TIMER BUMP DOWN 
sBR, IF MORE TIME TO GO 
sSET UP EXPECTED 
sARE THEY EQUAL 
sBR, IF OK 
sERROR COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 719 
«WORD T3SRWE 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CS$cLP1 
sCHECK FOR INTERRUPTS 
;BR, IF INTERRUPTS DETECTED 
sGET TSSR STATUS FOR PRINTOUT 
sERROR COUNT 
s INTERRUPT NOT RECEIVED (BAD) 
TRAP CSERHRD 
«WORD 720 
-WORD T3SNIN 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLP1 
sPICK UP XSTO 
;SET UP EXPECTED 
;SET MOT BIT IN EXPECTED 
;D0ES EXP = REC‘D 
sBR, IF EQUAL (OK) 
sERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 721 
-WORD TS3SMOT 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CsCLP1 
sPICK UP xST2 
sSET UP EXPECTED 
sSET OPM BIT IN EXPECTED 
;D0ES EXP = REC'D 
;BR, IF EQUAL (OK) 
sERROR COUNT 
;0PM BIT NOT SET 
TRAP CSERHRD 
-WORD 722 
-WORD T3S50PM 


is 
7: 


. 
® 


HARDW 


L1i4 


ARE TEST 1-8 TEST MACRO M1113 0O1-FEB-84 18:55 SEQ 180 

EXTENDED MODE FEATURES : 
065364 015364’ -WORD EXPREC 
065366 170$: CKLOOP sLOOP IF SELECTED 
065366 104406 TRAP CSCLP1 
065370 012737 000027 067422’ MOV #23.,T350LY :SET UP DELAY COUNTER 
065376 DELAY 250 sSTART DELAY 
065376 012727 000250 MOV #250,(PC)+ 
065402 000000 . WORD 0 
065404 013727 002116’ MOV LSOLY,(PC)+ 
065410 000000 . WORD 0 
065412 005367 177772 DEC “aEPC) 
065416 001375 BNE 
065420 005367 177756 DEC "32¢PC) 
065424 001367 BNE --20 
065426 005337 067422’ DEC T3SOLY ;BUMP DELAY COUNTER 
065432 001361 BNE 175$ ;BR, IF MORE DELAY 
065434 ENDSUB 
065434 L10065: 
065434 104403 TRAP CsESUB 
065436 023727 002214' 000017 CMP — :IS ERROR COUNT AT 25 
065444 103402 BLO 999$ ;BR, IF LESS THAN 25 
065446 004737 017074' JSR PC ,CKDROP ;TRY TO OROP THE UNIT 
065452 999%: 

3¢ 

. 

sTEST 7, SUBTEST 3 

t 

Fy VERIFIES THAT THE NON-TAPE-MOTION COMMAND GET STATUS, ISSUED 

H IMMEDIATATELY AFTER TERMINATION OF A REWIND WITH IMMEDIATE 

8 INTERRUPT COMMAND, TERMINATES PROPERLY AND PROVIDES PROPER 

H STATUS. FIRST, A NUMBER OF DATA RECORDS ARE WRITTEN FROM BOT. 

3 THEN THE REWIND WITH IMMEDIATE INTERRUPT COMMAND IS ISSUED AND 

3 TERMINATION VERIFIED. THEN THE GET STATUS COMMAND IS ISSUED. 

; THE GET STATUS SHOULD TERMINATE ALMOST IMMEDIATELY AND SHOW 

3 MOT=1 AND OPM=1 IN THE MESSAGE BUFFER. AFTER A DELAY LONG 

; ENOUGH TO ALLOW THE REWIND TO COMPLETE AND THE TAPE COME TO 

H REST, GET STATUS IS AGAIN ISSUED AND THE STATUS CHECKED; BOTH 

3 MOT AND OPM SHOULD BE CLEAR. 

3 

Hy 

; 

; 

ag 
065452 BGNSUB y>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
065452 17.3: 
065452 104402 TRAP CS$BSUB 
065454 004737 073044' JSR PC, T3SREST 3;SET COMMAND PACKET 
065460 004737 073136’ JSR PC, T3SRT2 :SET UP OTHER COMMAND PACKET 
065464 004737 073200' JSR PC, T3SRT3 ;SET UP OTHER COMMAND PACKET 
065470 004737 015664' JSR PC,SOF INIT 3:00 INITIALIZE ON CONTROLLER 
065474 - "103407 BcsS 20$ ;BR IF INIT WAS OK 
065476 005237 002214’ INC FATFLG sERROR COUNT 
065502 010001 MOV RO,R1 : CONTENTS OF TSSR REGISTER 
065504 ERRDF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
065504 104455 TRAP CSERDF 
065506 001323 . WORD 723 
065510 003642’ . WORD SFIERR 


TEST +7; 


4705 
4706 
4707 
4708 
4709 
4713 
4714 


4754 


HARDMARE ube PER URES MACRO M1113 01-FEB-84 


065512 
065514 


011723' 
013737 
012704 


013737 


012737 


012702 


002174' 
067240' 
010552’ 


002214' 


010704' 


000002 
002214' 


067270' 
000002 


002214’ 


000024 
003116’ 


140005 
067370’ 


017314’ 
067376’ 
000000 
016140' 
000002 
000200 


067260' 


067372' 


067370' 


M14 


18:55 

20%: MOV UNITN, T350SW 

MOV @TSSPACKET ,R4 

JSR PC,WRTCHR 

BCS 23s 

INC FATFLG 

MOV RO,R1 

ERRHRD ERRNO,WRTMSG,SFIMSG 
23s: CKLOOP 

JSR PC,REWIND 

BCS 30$ 

MOV RO,R4 

MOV TSSRCRS),R1 

INC FATFLG 

ERRHRD ERRNO, T3SRWN,PKTSSR 
30$: CKLOOP 

MOV T35BFR+6,R1 

MOV R1,R2 

BIS eB1T1, Re 

CMP R1,R2 

BEQ 40$ 

INC FATFLG 

ERRHRD ERRNO, TS5B0T ,EXPREC 
40$: CKLOOP 

MOV #20.,R3 

MOV FREE, T35wWB 


SEQ 181 


.WORD SFIMSG 
sSET UP UNIT NUMBER IN PACKET 
s SUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND OuNT OK 


;ERROR 
3 SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC — 


RAP CSERHRD 
«WORD 724 
«WORD WRTMSG 
-WORD SFIMSG 

;LOOP IF SELECTED 
TRAP CsCLP1 

;CALL TAPE REWIND COMMAND 

;BR, IF NO PROBLEM 

sSET UP REWIND PACKET ADDRESS 

;GET CONTENTS FOR CALL 

sERROR COUNT 

sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 725 
-WORD T3SRWN 
-WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CsCLP1 

sPICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;D0ES EXP = REC'D 

;BR, IF EQUAL (OK) 

sERROR COUNT 

;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 726 
«WORD T3SB0T 
«WORD EXPREC 

;LOOP IF SELECTED 
TRAP CsCcLP1 


sSTARTING RECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


J SSSAASERESESASEASESASASEAASEEEASAAESAEEDE 


‘ 
sWRITE DATA,CVC=1,ACK COMMAND 


° 
FASAAREASEREAAEAASASLEAREASARASRERERAEEASLSESD 


65%: MOV #140005, T35PK3 
MOV @T35PK3,R4 
MOV R3,RO 
JSR PC,.FILLMEM 
MOV R3,7T35SZ 
MOV R4,TSDBCRS) 
JSR PC. WAITF 
MOV TSSR(RS),R1 
MOV #SSR,R2 


sWRITE DATA,CVC=1,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
3SET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
;SET UP RECORD SIZE IN PACKET 

3 ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

3SET UP EXPECTED 


N14 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 01-FEB-84 18:55 SEQ 182 
TEST 7: EXTENDED MODE FEATURES 

4755 065720 020102 CMP R1,R2 sARE THEY EQUAL 

4756 065722 001406 BEQ 80$ ;BR, IF OK 

4757 065724 005237 002214' INC FATFLG sERROR COUNT 

4761 065730 ERRHRD ERRNO, T35WOC ,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
065730 104456 TRAP CSERHRD 
065732 001327 . WORD 727 
065734 071060' WORD T35wOC 
065736 011736' wORD PKTSSR 

4762 065740 80$: CKLOOP ;LOOP IF SELECTED 

a763 065740 104406 TRAP CSCLP1 

4764 {ARR ARAEAAARAEEERABAAEAAAAASREAEREEREEEE 

4765 ’ H 

one sWRITE DATA RETRY,CVC=1,ACK COMMAND 

476 : 

4768 F PRRAAAAASARAEARASAREAASEARARAESASESDEADADESE 

4769 

4770 065742 012737 141005 067370' MOV #141005, T35PK3 sWRITE DATA RETRY,CVC=1,ACK COMMAND 

4771 065750 010465 000000 MOV R4, TSOBCRS) ; ISSUE COMMAND 

4772 065754 004737 016140' JSR PC ,WAILTF sWAIT FOR SSR TO SET 

4773 065760 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

4774 065764 012702 000200 MOV #SSR,R2 ;SET UP EXPECTED 

4775 065770 020102 CMP R1,R2 ;ARE THEY EQUAL 

4776 065772 001406 BEQ 90$ ;BR, IF OK 

4777 065774 005237 002214’ INC FATFLG ;ERROR COUNT 

4781 066000 ERRHRD ERRNO, T35WRF ,PKTSSR ;TSSR INCORRECT AFTER agg + DATA RETRY 
066000 104456 CSERHRD 
066002 001330 TWORO 728 
066004 072125' - WORD T3SWRF 
066006 011736’ -WORD PKTSSR 

4782 066010 90$: CKLOOP ;LOOP IF SELECTED 
066010 104406 TRAP CSCLP1 

4783 066012 005723 TST CR3)> ;BUMP RECORD SIZE COUNTER 

4784 066014 020327 000052 CMP R3,042. sAT 42 SIZE YET 

4785 066020 001315 BNE 65$ ;BR, IF MORE RECORDS TO WRITE 

4786 066022 004737 010704’ JSR PC ,,REWIND ;CALL TAPE REWIND COMMAND 

4787 066026 103411 BCS 230$ ;68R, IF NO PROBLEM 

4788 066030 010001 MOV RO,R1 ;SAVE TSSR 

4789 066032 016501 000002 MOV TSSRCRS5),R1 ;GET TSSR CONTENTS 

4790 066036 005237 002214’ INC FATFLG sERROR COUNT 

4794 066042 ERRHRD ERRNO, T35SRWN,EXPREC ;REWIND NOT ACCEPTED 
066042 104456 TRAP CSERHRD 
066044 001331 .- WORD 729 
066046 070524’ . WORD T3SRWN 
066050 015364’ .- WORD EXPREC 

4795 066052 230$: CKLOOP ;LOOP IF SELECTED 
066052 104406 TRAP CS$CLP1 

4796 066054 013701 067270' MOV T35BFR+6,R1 ;PICK UP XSTO 

4797 066060 010102 MOV R1,R2 ;SET UP EXPECTED 

4798 066062 052702 000002 BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 

4799 066066 020102 CMP R1,R2 ;D0ES EXP = REC'D 

4800 066070 001406 BEQ 240$ ;BR, IF EQUAL (OK) 

4801 066072 005237 002214’ INC FATFLG ;ERROR COUNT 

4805 066076 ERRHRD ERRNO, T35B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
066076 104456 TRAP CSERHRD 
066100 001332 . WORD 730 


066102 070220’ -WORD T3SBOT 


TEST 1 


- HARDWARE 
TEST ?: 


TEST 


EXTENDED MODE 


015364" 
104406 


012703 
013737 


012737 


Bis 
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FEATURES 


000024 
003116' 


002214' 


003116’ 


000024 


002214' 


000050 


067372' 


067370' 


2408; 


CKLOOP 


MOV 
MOV 


#20. ,R3 
FREE, TSSRB 


3966608008 0FOO4644O646FOFS444SSSS6HSHEHHEEE 


ij 
sREAD DATA,ACK COMMAND 


3 
FHSOSHEHAHHHSHASHSEESSHEHHHEEHEHHEOEHEOEEE 


2658: 


2803: 


2853: 


2908: 


3008: 
330%; 


#100001, TSSPKS3 
OT3SPK3,R4 
@177777,RO0 


@SSR,R2 


FATFLG 
ERRNO, TSSOTA,EXPREC 


(R4)> 
R2,R4 
R4,R3S 
2853 
(R3)> 
R3,040, 
265% 


SEQ 183 
«WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSsCLP1 
sSTARTING RECORD SIZE 
sSTARTING READ BUFFER ADDRESS 
sREAD DATA,ACK COMMAND 
sSET UP R4 WITH PACKET ADORESS 
sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
:BR, IF OK 
sERROR COUNT 
sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 731 
.WORD T3S5ROF 
-WORD PKTSSR 
3;LOOP IF SELECTED 
TRAP CSCLP1 
;GET BUFFER ADORESS 
3GET RECORD SIZE 
sPOINT BACK TO IST RECORD 
sPOINT TO 1ST LOC IN BUFFER 
s;DATA WRITTEN = READ 
3BR, IF DATA OK (GOOD) 
sPICK UP BAD DATA 
sSET UP EXPECTED 
sERROR COUNT 
sDATA IN BUFFER NOT CORRECT 
TRAP CSERHRD 
. WORD 732 
«WORD T3SOTA 
. WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 


sBUMP TO NEXT ADDRESS 
sBACK TO RECORD SIZE 
sAT END OF RECORD YET 
sBR, IF MORE DATA TO CHECK 
sBUMP RECORD SIZE 
sOONE YET 
36R, IF NOT DONE YET (MORE READS) 
sLOOP IF SELECTED 
TRAP CSCLPL 


Cis 


; ERBENBEB Abbd AeRrdRes MACRO M1115 01-FeB-84 16:55 SEQ 184 
Sees? ENDSUB }>> >>> >>> >>>DD END. jest >>>>>>>>>>>D>>D 
066276 104403 TRAP CsESuB 


066300 023727 002214' 000017 CMP FATFLG,@15. sIS ERROR COUNT AT 25 
066306 103402 BLO 999% sBR, IF LESS THAN 25 
066310 004737 017074' JSR PC ,CKDROP sTRY TO DROP THE UNIT 


3° 
H 
sTEST 7, SUBTEST 4 


VERIFIES THAT A TAPE-MOTION COMMAND (READ, WRITE, POSITION), 
ISSUED IMMEDIATATELY AFTER TERMINATION OF A REWIND WITH 
IMMEDIATE INTERRUPT COMMAND, IS “QUEVED” BY THE CONTROLLER AND 
THEN EXECUTES PROPERLY. 


066314 BGNSUB g>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
066314 17.4; 
066314 104402 TRAP CsBSUB 


066316 004737 073044' JSR PC, T3SSREST sSET COMMAND PACKET 
066322 004737 073136' JSR PC, T3SRT2 sSET UP OTHER COMMAND PACKET 


066326 004737 073200' JSR PC, TSSRTS sSET UP OTHER COMMAND PACKET 

066332 012737 176750 067422' MOV #65000. , T3S0L¥ sSET UP DELAY COUNTER 

066340 004737 015664’ 108: JSR PC, SOF INIT s00 INITIALIZE ON CONTROLLER 

066344 103426 ecs 20% sBR IF INIT WAS OK 

066346 DELAY 250 sDEL®yY ABOUT .25 SEC 

066346 012727 000250 MOV @250,(PC)- 
066352 000000 -WORD O 

066354 013727 002116' MOV LSOLY.CPC)- 
066360 000000 -WORD 0 

066362 005367 177772 DEC -6(PC) 
066366 001375 BNE .-4 

066370 005367 177756 DEC -22(PC) 
066374 001367 BNE .-20 


066376 005337 067422’ DEC T350L ¥ sBUMP COUNTER 
066402 001356 BNE 10$ :BR, IF COUNTER NOT DONE 
066404 005237 002214’ INC FATFLG sERROR COUNT 


066410 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

066412 : ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 

066412 104455 TRAP CSEROF 
066414 001335 WORD 733 
066416 003642’ WORD SFIERR 
066420 011724' -WORD SF IMSG 
066422 013737 002174' 067260’ 20%: MOV UNITN, T3S0SW sSET UP UNIT (ORIVE) NUMBER 

066430 012704 067240' MOV @TSSPACKET,R4 sSUBROUTINE NEEDS PACKET ADORESS 
066434 004737 010552’ JSR PC,.WRICHR sISSUE WRITE CHARACTERISTICS 

066440 103407 BCS 233 3BR, IF COMMAND ISSUED OK 

066442 005237 002214’ INC FATFLG sERROR COUNT 

066446 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

066450 ERRHRD ERRNO, WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 

066450 104456 TRAP CSERHRD 
066452 001336 WORD 734 


066454 005046' "wORD wWRTMSG 


4947 
4948 


D15 


; PREPNBEB AGE PeRrURes MACRO M1115 01-FEB-84 16:55 


011724° 


104406 
004737 
103411 
016501 
010004 
005237 


104456 
001337 
070524' 
011736’ 


104406 
013701 
010102 
052702 
020102 
001406 
005237 


104456 
001340 
070220’ 
015364' 


104406 
012703 
013737 


23%; 
010704' 
000002 
002214' 


308: 


40$: 


000024 


003116' 067372’ 


CKLOOP 

JSR PC ,REWIND 

BcS 30% 

MOV TSSR(RS),R1 

MOV RO,R4 

INC FATFLG 

ERRHRD ERRNO, TSSRWN,PKTSSR 
CKLOOP 

MOV T35SBFR+6,R1 

MOV R1,R2 

BIS oBIT1,R2 

CMP R1,R2 

BEQ 40% 

INC FATFLG 

ERRHRD ERRNO, T3SB0T,EXPREC 
CKLOOP 

MOV #20. ,R3 

MOV FREE, T35wB8 


SEQ 185 
«WORD SF IMSG 
sLOOP IF SELECTED 
TRAP CsCLPi 
sCALL TAPE REWIND COMMAND 
s6R, IF NO PROBLEM 
sGET TSSR CONTENTS 
sGET PACKET ADDRESS 
sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 735 
-WORD T3SRWN 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 
sPICK UP xSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sO0ES EXP = REC'D 
sBR, IF EQUAL (OK) 
sERROR COUNT 
sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
«WORD 736 
-WORD T3580T 
-WORD EXPREC 


;LOOP IF SELECTED 


TRAP CsCLP1 
sSTARTING RECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


89206006 606666066668064600666608060066060064660066 


: 
sWRITE DATA,CVC=1,ACK COMMAND 
; 


J POOSOSHSHEHHAASSESEESEESEEEEHEEEHEHESHEEEE 


012737 
012704 


140005 
067370’ 


017314' 
067376' 
000000 


016140’ 
000002 
000200 


067370' 65$: 


002214' 


80%: 


MOV #140005, T35PK3 
MOV OT35PK3,R4 
MOV R3,RO 

JSR PC,FILLMEM 
MOV R3,135SZ 
MOV R4, TSOBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR,R2 

CMP R1,R2 
BEQ 80$ 

NC FATFL 


I G 
ERRHRD ERRNO, T35WOC,PKTSSR 


CktOOP 


sWRITE DATA,CVC=1,ACK COMMAND 
3SET UP R4&4 WITH PACKET ADDRESS 
sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

:GET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 


38R, IF OK 
sERROR COUNT 

sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
.WORD 73? 
. WORD T35wOC 
.WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 


TEST 1 
TEST 


- HARDWARE TEST 
7: EXTENDED 3 


012737 


104406 
012703 
013737 


E22 


eS thet MACRO M1113 O1-FEB-84 18:55 


111005 
000000 
016140’ 
00000 


2 
000200 


002214’ 


0000S2 
010704' 
000002 
002214’ 


000024 
003116’ 


067370' 


067372’ 


8 O9OOOOO4OOOO4OOSEEEKOEEEEAEKEEEEEEEEEREEREDSE 


3 
sWRITE DATA RETRY,ACK,SWB=1 COMMAND 


é 
FPOHAOSEEEAEHASHAASEHEAEEEEKEAEEHEEEDOREE 


2308: 


2408: CKLOOP 


MOV 
MOV 


#111005, T35PK3 

R4, TSOBCRS) 

PC ,WAITF 
TSSRCRS),R1 

@SsR, 

R1,R2 

90% 

FATFLG 

ERRNO, T3SWRF ,EXPREC 


230 

TSSRCRS),R1 

RO,R4 

FATFLG 

ERRNO, TSSRWN,PKTSSR 


T35SBFR+6,R1 


LG 
ERRNO, T3SB0T ,EXPREC 


620. ,R3 
FREE, T35RB 


SEQ 186 


sWRITE DATA RETRY,ACK,SWB=1 COMMAND 


s ISSUE COMMAND 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 


CSERHRD 
738 
T3S5WRF 


;BR, IF OK 
sERROR COUNT 
sTSSR INCORRECT AFTER WRITE DATA RETRY 
TRAP 
. WORD 
. WORD 
. WORD 


sLOOP IF SELECTED 


TRAP 

sBUMP RECORD SIZE COUNTER 
sAT 42 SIZE YET 
sBR, IF MORE RECORDS TO WRITE 
sCALL TAPE REWINO COMMAND 
sB8R, IF NO PROBLEM 
sGET TSSR CONTENTS 
sGET PACKET ADDRESS 

sERROR COUNT 
sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 


sPICK UP XxSTO 
3SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
3BR, IF EQUAL (OK) 
sERROR COUNT 
;TAPE NOT AT BOT AFTER — 


sLOOP IF SELECTED 


TRAP 
sSTARTING RECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


FPOREDESOREEEEEESEEEEEEEEEEREEEEEEEEEOEES 
a 
sREAD DATA,ACK COMMAND 
é 


FF SOOSOEHEEEEEAEEHOEEHEEHEEOSE HEHEHE HEEDE 


EXPREC 
CsCLP1 


CSERHRD 


CsCLPi 


CSERHRD 
740 
T3S5B80T 
EXPREC 


CsCLPi 


TEST 1 
TEST 


- HARDWA 


7: EXTENDED MODE 


012737 


Fi5 
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067370' 


003116’ 
000024 


002214' 


000050 


002214' 000017 
017074’ 


016350’ 


2658; 


2808: 


2853: 


2908: 


300$: 


999%; 


#100001, T35PK3 


@TSSPK3,R4 
R3,135SZ 
R4, TSOBCRE; 
PC ,WAITF 
TSSRCRS),R1 
@SSR ,R2 
R1,R2 

280$ 

FATFLG 


ERRNO, T3SROF ,PKTSSR 


FREE ,R2 
R3,R4 
#20. ,R4 
R2,R4 
R3 
C(R4),R3 
290% 
yh 


FATFLG 


ERRNO, T3SOTA,EXPREC 


— 
Pc, CkDROP 


PC, TSTLOOP 
163$ 


sREAD DATA,ACK COMMAND 

sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 


;6R, IF oeR 
RROR COUNT 
;TSSR INCORRECT AFTER = Boe, 
‘ TWORD 
. WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 


;GET BUFFER ADDRESS 

sGET RECORD SIZE 

sPOINT BACK TO 1ST RECORD 
sPOINT TO 1ST LOC IN BUFFER 
sSWAP BYTES SWB=1 ETC. 
sDATA WRITTEN = READ 

3BR, IF DATA OK (GOOD) 
sPICK UP BAD DATA 

3SET UP EXPECTED 


sERROR COUNT 
sDATA IN BUFFER NOT CORRECT 


;LOOP IF SELECTED 


;BUMP TO NEXT ADDRESS 
;BACK TO RECORD SIZE 

3PUT R3 BACK INTO SHAPE 
3AT END OF RECORD YET 

;BR, IF MORE DATA TO CHECK 
;BUMP RECORD SIZE 

sD0NE YET 


SEQ 187 


CSERHRD 
741 
T3SROF 
PKTSSR 


CsCLP1 


CSERHRD 
742 
T3SOTA 
EXPREC 


CsCLP1 


;BR, IF NOT DONE YET (MORE READS) 


;LOOP IF SELECTED 
TRAP 


Csc.P1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


L10067: 
TRAP 
:IS ERROR COUNT AT 25 
;68R, IF LESS THAN 25 
;TRY TO OROP THE UNIT 


;00 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 


CsESUB 


T 
, v2 


1_- HARDWARE 
EXTENDED 


067224 
067230 
067230 
067232 


000137 063314’ 


104432 
003770 


100005 
003116' 


177777 


JMP 
163$: EXIT 


G15 


M3) eR hes MACRO M1113 01-FEB-84 18:55 


T3SLOOP 
TsT 


3 
sLOCAL STORAGE FOR THIS TEST 


3 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 


.BLK 
T3SPACKET: 
. WORD 
. WORD 
. WORD 
. WORD 
T3SDATA: 
. WORD 
. WORD 
. WORD 
. WORD 
T350SW: .WORD 
T35BFR: .BLKW 
3 
T35PKe: 
. WORD 
. WORD 
. WORD 
. WORD 
.BLKB 
T35PK3 
WORD 
T35RB: 
T35WB: .WORD 
. WORD 
T35SZ: .WORD 
EVEN 
3 
3 
3 
T356F 2: 
T358S0: .BYTE 
T35BS1: .BYTE 
T35S2: WORD 
T35S3: WORD 


EVEN 
s;TAPE MOTION PACKET COMMAND VALUES 


T35RN: 
T35WOR : 
T3SCON: 


10-<, -TSV2E7> 


100004 
T3SDATA 


10-<,-TSV2E7> 


100006 
tis 


6. 

10-<, -TSV2E7> 
100005 

FREE 

ie) 

\¢) 


17777 


sEXECUTE AGAIN 

sALL DONE THIS TEST 
TRAP 
. WORD 


sCOMMAND PACKET FOR TEST 


sWRITE CHARACTERISTICS COMMAND, WITH , ACK 


sADDRESS OF CHARACTERISTICS B 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE O 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER CEXTENT) 


sBSELO AREA 
;BSEL1 AREA 
sSEL 2 AREA 
;DATA AREA 


sREREAD DATA (NEXT) 
sREREAD DATA RETRY 
sWRITE CONTINOUS 
sEND OF DATA 


SEQ 16@ 


CSExIT 
L10062-. 


LOCK 


AND ACK 


His 


TEST 1_- HARDWA MACRO M1113 0O1-FEB-84 

TEST 7; EXTENDED MODE PERTURES en ee — 
Sill ‘ 
5112 067416 000000 SSCNT: .WORD O s TAPE TIMER COUNTER STORAGE AREA 
5113 067420 000000 T3SCNU: .WORD 0O ;TAPE TIMER COUNTER STORAGE AREA 
sits 067422 000000 T3SOLY: .WORD O sDELAY COUNTER 
5116 
5117 te 
5118 ;LOCAL TEXT MESSAGES FOR TEST 
5119 3° 
3151 
5122 067424 124 141 160 TS3SWNG: .ASCIZ ‘Tape Position Incorrect After REREAD Previous COPP=1)° 
5123 067512 124 123 123 TS3SROF: .ASCIZ ‘TSSR Incorrect After READ DATA Command 
5124 067561 122 105 122 T3SRRF: .ASCIZ ‘REREAD Previous (Space Reverse, Read —_ Command Fai led’ 
5125 067656 120 117 123 T35SC: ASCIZ ‘POSITION (Space Command) Failed, TSSR Not Correct’ 
5126 067740 122 111 102 T35LOR: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 
5127 070010 124 123 123 T3SWOF: .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set’ 
5128 070065 111 154 154 T35LOQ@: .ASCIZ ‘Illegal Mode Bits, Failed To me ‘> Bit In xSTO' 
5129 070146 124 123 123 T3SWDE: .ASCIZ :TSSRN Not Correct After WRITE DATA Command’ 
5130 070220 124 141 160 T3SBOT: .ASCIZ Tape Not At BOT After REWIND Command (BOT Not Set In xSTO)’ 
5131 070313 127 122 111 T3STIM: .ASCIZ WRITE DATA RETRY''S Erase Tape Not Long wr 
5132 070370 122 105 122 TS3SEOT: .ASCIZ ‘REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
5133 070447 124 123 123 T35TM: ASCIZ ‘TSSR Not Correct After REREAD COMMAND Reject’ 
5134 070524 122 145 167 T3SRWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
5135 070573 122 101 115 T3SRNC: .ASCIZ ‘RAM Error, Correct Date Pattern Not In Ram’ 
5136 070646 124 123 123 T3SAM3: .ASCIZ ‘TSSR Init. Failed After REREAD COMMAND’ 
5137 070715 104 162 151 T3SOFL: .ASCIZ ‘Drive 7 Select Failed To Set “OFL” Im TSSR’ 
$138 070770 124 123 123 T35SWOD: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command. SWB Bit Set’ 
5139 071060 124 123 123 T3SWOC: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command’ 
5140 071133 103 126 103 T3SVCK: .ASCIZ ‘CVC Set, Didn’'t Reset VCK In Mess Buffer’ 
5141 071206 124 123 102 T3SBA: .ASCIZ ‘TSBA Not Correct After REREAD DATA Command’ 
5142 071261 127 122 111 T3SwWSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
5143 071350 122 145 141 T3SLON: .ASCIZ ‘Reading Long Record Failed To Set RLL Bit In XSTO' 
5144 071432 122 145 141 TSSLOP: .ASCIZ ‘Reading Long Record Failed To Set RLS Bit In xSTO’ 
5145 071514 122 145 163 T3S5PBP: .ASCIZ ‘Residual 4 my Count Incorrect After Short Record Read’ 
5146 071602 122 145 141 T3STRL: .ASCIZ unre fat ong Record Failed To Give Tape Status Alert’ 
5147 071670 127 122 111 T3SNEF: .ASCIZ ‘WRITE DATA RETRY, At First Record, Failed To Set RIB Bit XxST3’ 
5148 071766 124 123 123 T3SSCF: .ASCIZ ‘TSSR Not Correct After SPACE RECORDS C 
5149 072043 124 123 123 T3STSA: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY, Into BOT’ 
5150 072125 124 123 123 T3SWRF: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY Command’ 
5151 072205 104 141 164 TSSOTA: .ASCIZ ‘Date Compare Error, Data Read From Tape Not Equal To Written’ 
5152 072302 124 123 123 T35SSR: scI ‘TSSR Incorrect After WRITE MISCELLANEOUS Command 
5153 072363 115 117 124 T3SMOT: .ASCIZ ‘MOT Bit (XSTO) Not Set Duri Rewind (Extended Features Mode)’ 
5154 072461 111 156 164 T3SINT: .ASCIZ ‘Interrupt Received After REWIND Command (IE Bit Not Set)’ 
5155 072552 117 120 115 T3S5SOPM: .ASCIZ ‘OPM Bit (XST2) Not Set During Rewind (Extended Features Mode)’ 
5156 072650 124 123 123 T3SRWE: .ASCIZ ‘TSSR Incorrect After Extended Features REWIND Command’ 
5157 072736 116 157 040 TS3SNIN: .ASCIZ ‘No Interrupt Detected After REWIND IMMEDIATE’ 
moe 073013 105 170 164 TST35 -ASCIZ ‘Extended Mode Functions’ 
5160 3° 
5161 3 
5162 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
5163 ;sWRITE SUBSYSTEM MEMORY COMMAND 
5164 : 
5165 3- 
5166 
5167 073044 T35REST: 


TEST 1 
TEST 


- HARDWARE TEST 


073222 


7: EXTENDED MODE 


012701 
012721 


I15 


SS TEST MACRO M1113 01-FEB-84 18:55 
EATURES 


277777 
000000 


067370' 


067262" 


64%: 


T3SRT2: 


T3SRTS3: 


- 


SAVREG 
Vv 


.SBTTL 


@TSSPACKET,R1 
#100004 ,(R1)+ 


@TSSDATA,C(CR1)+ 


CR1)> 
10. ,CR1)+ 
OT35SBFR,CR1)>+ 


#0,(R1) 


-(R2) 


@T35PK2,R1 
#100006,(R1)-+ 
@T3SBF2,CR1)-+ 
CR1)> 

6. eCR1L)> 
(R1)> 
@T358F2,R1 
CR1)> 

(R1) 

PC 


SEQ 190 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADORESS OF CHARAISTICS DATA BLOCK 
s EXTENDED ss 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE ZERO 

sNUMBER OF LOCATIONS TO BE CLEARED 
sALL_ONES TO MESSAGE BUFFER 

sNEXT LOCATION 

sAT END OF LOOP YET 

sKEEP GOING UNTIL DONE 

sRETURN 


;SAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


;RETURN 


sSAVE REGISTERS 

;SET UP POINTER ADORESS 
sCOMMAND SPACE 

sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA TRANSFER BLOCK 
sRETURN 


L10063: 
TRAP 


TEST 8: RECORD BUFFERING 


THIS TEST VERIFIES THAT RECORD BUFFERING, USED FOR WRITE DATA 


AND READ 


NEXT COMMANDS, OPERATES PROPERLY AND IS PROPERLY 
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. 


IF THE 


M7455 CONTROLLER MODULE IS NOT ALREADY IN EXTENDED FEATURES MODE 
CAS CONTROLLED BY THE DIP SWITCH ON THE MODULE), IT IS PLACED 
INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 
BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 


PARTIALLY TESTED ALREADY. 


ACTUALLY OPERATING. 


THIS TEST VERIFIES THAT BUFFERING IS 
THE FOLLOWING SUBTESTS ARE PERFORMED: 


CseETSsT 


J1i5 
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073224 
073224 


012737 


006166’ 
017166’ 
100607' 
016402" 
00000) 


075616’ 


w 


002172' 


002210' 


VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES 
an gd LOW TAPE SPEED. THE FOLLOWING SEQUENCE IS 


THE TAPE IS REWOUND. 


BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED 
(VIA WRITE CHARACTERISTICS COMMAND). 


AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO 
MOVE THE TAPE OFF BOT. 


THE PROGRAM DELAYS FOR A TIME i TO ALLOW THE 
TAPE TO REPOSITION AND COME TO REST 


SEQ 191 


A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5K, 


IS ISSUED, AND THE PROGRAM COUNTS, IN A WAIT LOOP, THE 
TIME IT TAKES TO RECEIVE COMMAND TERMINATION. THIS 
A sengll A RELATIVELY LONG TIME SINCE BUFFERING IS 


BUFFERING IS ENABLED. 


THE WRITE DATA COMMANDO IS AGAIN ISSUED, WITH THE SAME 
BYTE COUNT AS THAT USED PREVIOUSLY. THE TIME TO 
COMPLETION IS AGAIN MEASURED. 


THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERED AND 
BUFFERED CASES ARE COMPARED. IT IS VERIFIED THAT THE 
TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARGER 
THAN THAT MEASURED FOR THE BUFFERED CASE. 


THE PREVIOUS STEPS, EXCEPT FOR REWINDING AND WRITING A 


RECORD OFF BOT, ARE REPEATED FOR VARIOUS BYTE COUNTS IN 


THE RANGE 20 THROUGH 3.5K. 


THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 


BGNTST ve 

MOV gel F EPRTSW sPRIMARY ERROR MESSAGE 

JSR PC .KTOFF ;TURN OFF KT11 

MOV oTST36ID, RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 

MOV 05 ,LOOPCNT sPERFORM S_ ITERATIONS 

CLR T36CNT ;CLEAR TAPE RECORD COUNTER 


3s 


é 
sTEST 8, SUBTEST 1 
3 


; 
sVERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 


Ki5 
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104402 
004737 
004737 
004737 
012737 
005037 
004737 
103426 


012727 
000000 
013727 
000000 


001443 
077031’ 


100630' 
100722" 
100764’ 
176750 
075616’ 
015664" 
000250 
002116’ 
177772 
177756 
075622’ 


002214' 


002174' 
075440’ 
010552’ 


002214' 


010704’ 


002214’ 


075622' 


075460’ 


THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
s TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF ) 
sERROR BIT SET. 


T36LOOP : 


10$: 


20$: 


25%: 


ERRHRD 


PC, T36REST 

PC, T36RT2 

PC, T36RT3 

#65000. » T360LY 
T36CNT 

PC,SOF INIT 

20$ 


250 


ERRNO, SFIERR, SF IMSG 


UNITN, T36D0SW 
@T36PACKET ,R4 
PC,.WRTCHR 


RO, 
ERRNO, WRTMSG, SF IMSG 


PC, REWIND 
30$ 


RO,R4 
FATFLG 
ERRNO, TS6RWN,PKTSSR 


SEQ 192 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T8.1: 


TRAP 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
;SET UP DELAY COUNTER 
sCLEAR COUNTER 
s00 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 
sDELAY ABOUT .25 SEC 


;BUMP COUNTER 

3B8R, IF COUNTER NOT DONE 
sERROR COUNT 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS tog ® 


;SET UP DRIVE NUMBER 


CsBSUB 


+ atten 
 Pemtibeteas 
-6(PC) 

4 


22¢PC) 
.=20 


; SUBROUTINE NEEDS PACKET ADDRESS 


sISSUVE WRITE CHARACTERISTICS 

BR, IF pr ia ISSUED OK 
RROR COUNT 

; SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 


;LOOP IF SELECTED 


sCALL TAPE ..EWIND COMMAND 

;BR, IF NO PROBLEM 

sSET UP REWIND PACKET ADDRESS 

;ERROR COUNT 

sREWIND NOT ACCEPTED 
TRAP 
. WORD 
. WORD 


WRTMSG 
SF IMSG 


CsCLP1 


CSERHRD 
803 
T36RWN 
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011736’ 


104406 
013701 
010102 
052702 
020102 
001406 
005237 


104456 
001444 
076525' 
015364' 


30$: 


40$; 


075460’ 
075460' 


002174' 
052737 000030 
075440’ 
0105Se2' 


002214’ 


075576’ 
075572" 
075570' 
000000 

016140’ 

000002 

000200 


002214' 


60$: 


075622' 
70$: 


104406 
012737 


012727 
000000 
013727 
000000 
005367 


001375 
005367 


5367 073652 
5368 073660 


000005 
000001 
002116' 
177772 


073702 177756 


01-FEB -84 


CKLOOP 


MOV 
DELAY 


Lis 


18:55 


T36BFR+6,R1 


FATFLG 
ERRNO, T36B0T ,EXPREC 


UNITN, T360SW 
SBIT3!BIT4, T360SW 
@T36PACKET ,R4 
PC,WRTCHR 

50$ 

FATFLG 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


#2000. , T36SZ 
FREE , T36WB 
#140005, T36PK3 
@T36PK3,R4 

R4, TSOBCRS) 

PC ,WAITF 
TSSRCRS),R1 
@SSR ,R2 


G 
ERRNO, WRTERR,PKTSSR 


#05.,T36DLY 
1 


SEQ 193 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 
sPICK UP XSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC’'D 
;BR, IF EQUAL (OK) 
sERROR COUNT 
sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
«WORD 6804 
-WORD T36B80T 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CsCLP1 


;SET UP DRIVE NUMBER 
325-APR-83 REV B - TURN ON THE BUFFERING 
;SUBROUTINE NEEOS PACKET ADDRESS 
; ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 

sERROR COUNT 
sSAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC = 


CSERHRD 
-WORD 805 
-WORD WRTMSG 
-WORD SFIMSG 
;LOOP IF SELECTED 
TRAP CscCLP1 


:SET UP RECORD SIZE 
sADDRESS OF WRITE BUFFER 
sWRITE DATA,ACK,CVC=1 COMMAND 
;SET UP R4& WITH PACKET ADDRESS 
; ISSUE COMMAND 
sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
sARE THEY EQUAL 
;BR, IF OK 
sERROR COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
06 


-WORD 8& 
-WORD WRTERR 
-WORD PKTSSR 


;LOOP IF SELECTED 
csc 


TRAP sCLP1 
325-APR-83 REV B - DELAY FOR TAPE TO STOP 
325-APR-83 REV B - DELAY ROUTINE CALL 


MOV #1,(PC)+ 
-WORDB O 

MOV LSOLY,(PC)>+ 
-WORD O 

DEC -6(PC> 

BNE 


aol 
-22(PC) 


MLS. 
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5369 
5370 
5371 


073706 
073710 
073714 
073716 
073724 
073732 
073736 
073742 
073750 
073754 
073760 
073764 
0735766 
073772 
073772 
073776 
074000 
074004 
074006 
074012 
074014 
074020 


382 074022 


074026 
074030 
074034 
074036 
074040 
074044 
074044 
074046 
074050 
074052 
074054 
074054 
074056 
074064 


074072 
074076 
074102 
074104 
074110 
074112 
074112 
074114 
074116 
074120 
074122 
074122 
074124 
074132 
074140 
074144 
074150 
074156 
074162 


012727 
000000 
013727 


000000 
005367 
001375 
005367 
001367 
005337 
001352 
012702 
020102 
001406 
005237 


104456 
001447 
076453’ 
011736’ 


104406 
013737 
052737 


011724' 


104406 
012737 
012737 


“012704 


005037 
012737 
010465 
016501 


075622’ 


006642 075576' 


075570' 
001750 075622’ 
000000 


000002 
000200 


075616’ 
000001 
002116’ 
177772 
177756 
075622' 
000200 


002214' 


100$: 


002174' 
000010 


075440’ 
010552’ 


075460' 
075450' 


002214" 


110$: 


006642 
140005 
075570' 
075620' 
001750 075622’ 
000000 


000002 


075576’ 
075570' 


80$: 


1203: 


03490. , T36SZ 
@T36PK3,R4 


@SSR,R1 
90 


$ 
apa 


G 
ERRNO, T36WDE ,PKTSSR 


UNITN, T360SW 
oBIT3,T360SW 


@T36PACKET ,R4 
HR 


RO, 
ERRNO, WRTMSG, SF IMSG 


03490. ,T36SZ 
#140005 , T36PK3 
OT36PK3 ,R4 
T36CNU 
#1000. , TS6DLY 
R4,TSDBCRS) 
TSSRCRS),R1 


BNE 
sBUMP COUNTER DOWN 
sBR, IF MORE DELAY TO GO 
;SET SIZE OF TRANSFER 
sWRITE DATA,ACK,CVC=1 COMMAND 
sSET UP R4& WITH PACKET ADDRESS 
s;CLEAR COUNTER 
sSET DROP DEAD COUNTER VALUE 
s ISSUE COMMAND 
;GET TSSR CONTENTS 
;CHECK FOR SSR SET 
:;B8R, IF SSR IS SET 
;BUMP CYCLE COUNTER 
;CUT NUMBER OF LOOPS DOWN 
MOV ee 


. WORD 
MOV LSDLY,CPC)+ 
-WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 
;BUMP DROP DEAD COUNTER 
;68R, IF THERE IS STILL TIME 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF OK 
sERROR COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 807 
- WORD T36WDE 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 


;SET UP DRIVE NUMBER 
325-APR-83 REV B - TURN OFF BUFFERING 
;TURN OFF BUFFERING CAPABILITY 
;SUBROUTINE NEEDS PACKET ADORESS 
s ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 

sERROR COUNT 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC — 


CSERHRD 
-WORD 808 
-WORD WRTMSG 
-WORD SFIMSG 
;LOOP IF SELECTED 
TRAP CsCLP1 


;SET SIZE OF TRANSFER 

sWRITE DATA,ACK,CVC=1 COMMAND 
;SET UP R4& WITH PACKET ADDRESS 
;CLEAR COUNTER 

;SET DROP DEAD COUNTER VALUE 

; ISSUE COMMAND 

;GET TSSR CONTENTS 
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074166 
074172 
074174 
074200 
074290 
074204 
074206 
074212 
074214 
074220 
074222 


Nis 
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032701 
001021 
005237 
012727 
000000 


013727 
000000 


000200 
075620’ 
000001 
002116' 
177772 
177756 
075622" 
000200 


002214’ 


075616' 
075620' 


002214’ 


002214’ 
017074' 


000017 


BIT #SSR,R1 

BNE 130$ 

INC T36CNU 

DELAY 1 

DEC T36DLY 

BNE 120$ 
130$: MOV @SSR,R2 

CMP R1,R2 

BEQ 140$ 

INC FATFLG 

ERRHRD ERRNO,WRTERR,PKTSSR 
140$: CKLOOP 

MOV T36CNT,R1 

MOV T36CNU,R2 

CMP R1,R2 

BLE 300$ 

INC FATFLG 

ERRHRD ERRNO, T36NAS,EXPREC 
300$: CKLOOP 

ENOSUB 

CMP . FATFLG, #15. 

BLO * 999% 

JSR PC ,CKDROP 
999%: 


3¢ 
3 
sTEST 8, SUBTEST 2 


SEQ 195 
;CHECK FOR SSR SET 
;BR, IF SSR IS SET 
sBUMP CYCLE COUNTER 
;CUT NUMBER OF LOOPS DOWN 
MOV #1,CPC)+ 
. WORD 9 
MOV LSDLY,(PC)+ 
. WORD 0 
DEC -6(PC) 
BNE -4 
DEC -22(PC) 
BNE .-20 


sBUMP DROP DEAD COUNTER 
;6R, IF THERE IS STILL TIME 
;SET UP EXPECTED 

sARE THEY EQUAL 

;BR, IF OK 


:;ERROR COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP — 


. WORD 
«WORD WRTERR 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLP1 
sGET FIRST COUNTER 
sGET SECOND COUNTER 
:25-APR-83 REV B - COMPARE EM 
3;BR, IF VALUES ARE CORRECT (OK) 
sERROR COUNT 
3 TAPE NoT AT CORRECT SPEED 
TRAP CSERHRD 
-WORD 810 
-WORD T36NAS 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CsCLP1 


L10071: 
TRAP CsESUB 
:IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


THIS TEST VERIFIES THAT RECORD BUFFERING, USED FOR WRITE DATA 
AND READ NEXT COMMANDS, OPERATES PROPERLY AND IS PROPERLY 
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. IF THE 
M7455 CONTROLLER MODULE IS NOT ALREADY IN EXTENDED FEATURES MODE 
CAS CONTROLLED BY THE DIP SWITCH ON THE MODULE), IT IS PLACED 
INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND. 


NOTE THAT RECORD BUFFERING HAS 


074334 
074334 
074334 
074336 
074342 
074346 
074352 
074360 
074364 
074370 
074372 
074372 
074376 
074400 


012727 
000000 
013727 


100630’ 
100722’ 
100764’ 
176750 

075616’ 
015664’ 


000250 
002116’ 


075622’ 


108%: 


B16 
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BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 
PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. THE FOLLOWING SUBTESTS ARE PERFORMED: 


VERIFIES THAT NORMAL BUFFERING ON WRITE DATA te ¥en 
PROPERLY AT LOW TAPE SPEED. THE FOLLOWING SEQUENCE 


THE TAPE IS REWOUND. 


BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED 
(VIA WRITE CHARACTERISTICS COMMAND). 


AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO - 
MOVE THE TAPE OFF BOT. 


THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE 
TAPE TO REPOSITION AND COME TO REST. 


A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5K, 
IS ISSUED, AND THE PROGRAM COUNTS, IN A WAIT LOOP, THE 
TIME IT TAKES TO RECEIVE COMMAND TERMINATION. THIS 
Age A RELATIVELY LONG TIME SINCE BUFFERING IS 


BUFFERING IS ENABLED. 


THE WRITE DATA COMMAND IS AGAIN ISSUED, WITH THE SAME 
BYTE COUNT AS THAT USED PREVIOUSLY. THE TIME TO 
COMPLETION IS AGAIN MEASURED. 


THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERED AND 
BUFFERED CASES ARE COMPARED. IT IS VERIFIED THAT THE 
TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARGER 
THAN THAT MEASURED FOR THE BUFFERED CASE. 


THE PREVIOUS STEPS, EXCEPT FOR REWINDING AND WRITING A 
RECORD OFF BOT, ARE REPEATED FOR VARIOUS BYTE COUNTS IN 
THE RANGE 20 THROUGH 3.5K. 


3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>>> 
78.2: 


TRAP CsB6SU8 
PC, T36REST sSET COMMAND PACKET 
PC, T36RT2) sSET UP OTHER COMMAND PACKET 
PC, T36RTS 1SET UP OTHER COMMAND PACKET 
+SET UP DELAY antes 
TS6CNT sCLEAR COUNTER 
PC, SOF INIT s00 INITIALIZE ON CONTROLLER 
20% s8R IF INIT WAS OK 


PERFORMED: 

1 . 
2 . 
3 . 
4 . 
$. 
6 . 
7 . 
8 . 
9. 

BGNSUB 

JSR 

JSR 

JSR 

MOV 

CLR 

JSR 

BCS 

DELAY 


250 sDELAY ABOUT .25 OSEC 
MOV + ait ii 


MOV L$OL1,.PC)> 


TEST 1 
TEST 6: 


econo Ss 
RECORD 6B 


074404 
074406 
074412 
074414 
074420 
074422 
074426 
074430 
074434 
074436 
074436 
074440 
074442 
074444 
074446 
074454 
074462 
074466 
074472 
074474 
074500 


S26 074502 


074502 
074504 
074506 
074510 
074512 
074512 
074514 
074520 
074522 
074524 
074530 
074530 
074532 
074534 
074536 
074540 
074540 
074542 
074546 
074550 
074554 
074556 
074560 
074564 
074564 
074566 
074570 
074572 
074574 
074574 
074576 
074604 
074612 
074616 
074622 


ulFearic 


1-8 TEST 


177772 
177756 
075622' 
002214' 


002174' 


010704' 


002214' 


002174' 
000030 

075440' 
0105S2' 


C16 
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075460' 
075460' 


075460' 
075460’ 


208%: 


253: 


308%: 


403: 


RO, 
ERRNO, SF IERR , SF IMSG 


UNITN, T360SW 
OBITS, T360SW 
@TSEPACKET ,R4 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


PC REWIND 
30% 


RO,R4 
FATFLG 
ERRNO, T36RWN,PKTSSR 


T368FR-6,R1 


LG 
ERRNO, TS6B0T ,E XPREC 


UNITN, T360SW 
OBITS!BIT4, T360SW 
@T36PACKET ,R4 

PC, WRICHR 

50$ 


. WORD 
DEC 
BNE 
DEC 
BNE 

sBUMP COUNTER 

sBR, IF COUNTER NOT DONE 

sER COUNT 


ROR 

s CONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 

sSET UP ORIVE NUMBER 

sTURN ON HIGH SPEED 


sSUBROUTINE NEEDS PACKET ADDRESS 


sISSUE WRITE CHARACTERISTICS 
sBR, IF eanON ISSUED OK 


s SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC “—— 


. WORD 

. WORD 

. WORD 
sLOOP IF SELECTED 

TRAP 


sCALL TAPE REWIND COMMAND 
sBR, IF NO PROBLEM 
:SET UP REWIND ~ fev 5 ADORESS 


sERROR C 
sREWIND NOT ACCEPTED 


TRAP 
. WORD 
WORD 
WORD 

;LOOP IF SELECTED 
TRAP 

sPICK UP XSTO 

:SET UP EXPECTED 

:SET BOT BIT IN EXPECTED 

;D0ES EXP = REC'D 

:BR, IF EQUAL (OK) 

;ERROR COUNT 

:TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 
. WORD 

;LOOP IF SELECTED 
TRAP 


1SET UP ORIVE NUMBER 
125-APR-83 REV B - 


sISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 


SEQ 197 


i) 
-6(PC) 
.-4 
-220PC) 
--20 


CSEROF 
811 

SF IERR 
SF IMSG 


WRTMSG 
SF IMSG 


CsCLP1 


CsCLPl 


CSERHRD 
814 
T36B80T 
EXPREC 


CscLPl 


TURN ON THE BUFFERING 
sSUBROUTINE NEEDS PACKET ADORESS 


FEST 's; REEBRB*EUFFEALAc® TEST 


S553 074624 


075076 


005237 002214' 
010001 


104456 
001457 
005046 ' 
011724' 


104406 
012737 
013737 
012737 


104406 
012737 


012727 
000000 


003720 
003116' 
140005 
075570' 
000000 
016140' 
000002 
000200 


002214' 


000005 
000001 
002116' 
177772 
177756 
075622’ 


002116' 
177772 
177756 


D16 
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INC FATFLG 
MOV RO,R1 
ERRHRD ERRNO,WRIMSG, SF IMSG 
50$: CKLOOP 
075576' MOV 02000. ,136SZ 
075572 MOV FREE , T36W8 
075570° MeV 0140005, T36PK3 
MOV OT36PK3,R4 
MOV R4, TSOBC(RS) 
JSR PC. WAITF 
MOV TSSR(RS),R1 
MOV @SSR,R2 
CMP R1,R2 
BEQ 608 
INC FATFLG 
ERRHRD ERRNO,WRTERR,PKTSSR 
603: CKLOOP 
075622' V 005. , T360LY 
708: DELAY 1 
DEC T36DLY 
BNE 70$ 
075576’ MOV 03490. ,136SZ 
075570° MOV 0140005, T36PK3 
MOV @T36PK3,R4 
CLR T36CNT 
075622' MOV ©1000... T36DLY 
MOV R4, TSOBC(RS) 
803: MOV TSSRCRS),R1 
BIT @SSR,R1 
BNE 903 
INC T36CNT 
DELAY 1 


SEQ 198 
sERROR COUNT 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
«WORD 8615 
-WORD WRTMSG 
-WORD SFIMSG 
sLOOP IF SELECTED 
RAP CSCLP1 


sSET UP RECORD SIZE 
sADDORESS OF WRITE BUFFER 
sWRITE DATA,ACK,CVC=1 COMMAND 
sSET UP R& WITH PACKET ADDRESS 
s ISSUE COMMANDO 
sWAIT FOR SSR TO SET 
3GET 7SSR CONTENTS 
3SET UP EXPECTED 
sARE THEY EQUAL 
;6R, IF OK 
OUNT 


sERROR C 
:TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 


«WORD 816 

«WORD WRTERR 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CsCLP1 


325-APR-83 REV B - DELAY FOR TAPE TO STOP 
:25-APR-83 REV B - DELAY ROUTINE CALL 


MOV LSOLY,(PC)- 
-WORD O 

DEC -6(PC) 

BNE .-4 

DEC -22(PC) 
BNE .-20 


sBUMP COUNTER DOWN 

;BR, IF MORE DELAY TO GO 

3SET SIZE OF TRANSFER 

sWRITE DATA,ACK,CVC=1 COMMAND 
3SET UP R4&@ WITH PACKET ADDRESS 
;CLEAR COUNTER 

3SET DROP DEAD COUNTER VALUE 
: ISSUE COMMAND 

3GET TSSR CONTENTS 

;CHECK FOR SSR SET 

;B8R, IF SSR IS SET 

sBUMP CYCLE COUNTER 

;CUT NUMBER OF LOOPS DOWN 


MOV @1,(PC)+ 
-WORD 0 

MOV LsOriy,(PC)- 
. WORD 9) 

DEC -6CPC> 

BNE 4 


-22¢PC) 


E16 
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TEST 8: RECORD BUFFERING 


075102 
075104 
075110 
075112 
075116 
075120 
075122 
075126 
075126 
075130 
075132 
075134 
075136 
075136 
075140 
075146 
075154 


012727 
000000 
013727 
000000 
005367 


005103' 


075622' 
000200 


002214’ 


002174’ 
000010 

075440' 
010552’ 


002214' 


002116’ 
177772 
177756 
075622’ 
000200 


002214' 


.00$: 


075460’ 
075460’ 


1108: 


075576’ 
075570' 


075622’ 


1208: 


130$: 


IN 
ERRHRD 


LG 
ERRNO, TS6WDE ,PKTSSR 


UNITN, T360SW 
oBIT3, T360SW 
@T36PACKET ,R4 
PC ,WRICHR 


RO, 
ERRNO ,WRTMSG , SF IMSG 


03490. ,136SZ 
#140005, T36PK3 
@T36PK3,R4 
T36CNU 
#1000. , T36DLY 
R4, TSOBCRS ) 
TSSRCRS),R1 


T360LY 

1208 

@SSR,R2 

R1,R2 

1403 

FATFLG 

ERRNO, WRTERR ,PKTSSR 


SEQ 199 
BNE .-20 
sBUMP DROP DEAD COUNTER 
s6R, IF THERE IS STILL TIME 
sSET UP EXPECTED 
s;ARE THEY EQUAL 
3;6R, IF DEAR 
OR COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 817 
. WORD T36WDE 
-WORD PKTSSR 
3;LOOP IF SELECTED 
TRAP CSsCLP1 


sSET UP DRIVE NUMBER 
325-APR-83 REV B - TURN OFF BUFFERING 
;SUBROUTINE NEEDS PACKET ADDRESS 
sISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 

sERROR COUNT 
3 SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC 4 ys 


C SERHROD 

.WORD 818 
“WORD SF IMSG 

;LOOP IF SELECTED 
TRAP = CS$CLP 1 

;SET SIZE OF TRANSFER 

;WRITE DATA,ACK,CVC=1 COMMAND 

:SET UP R&4 WITH PACKET ADDRESS 

;CLEAR COUNTER 

;SET DROP DEAD COUNTER VALUE 

; ISSUE COMMAND 

;GET TSSR CONTENTS 

;CHECK FOR SSR SET 

:8R, IF SSR IS SET 

;BUMP CYCLE COUNTER 

;CUT NUMBER OF LOOPS DOWN 
MOV 01,(PC)> 
.wORD 0 ‘ 
MOV LSDLY,(PC)- 
.WORD 0 
DEC “6CPC) 
BNE 
DEC “2a0ec) 
BNE -20 

:SUMP DROP DEAD COUNTER 

18R, IF THERE IS STILL TIME 

:SET UP EXPECTED 

;ARE THEY EQUAL 

BR, IF OK 

;ERROR COUNT 

;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
.WORD 819 
“WORD = WRTERR 


TEST 1 


TEST 8: RECORD BUFFERING 


5635 


075550 
075552 


011736' 


100004 
075450° 
000000 


000012 
075462’ 
000000 
000024 
000000 
000000 


100006 
075600' 


075616' 
075620' 


002214’ 


002214' 
017074' 


016350’ 
073260’ 


000017 


140$: 


3008: 


999%: 


1638: 


F16 
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TS6CNT ,R1 

T36CNU,R2 

R1,R2 

300$ 

FATFLG 

ERRNO, T36NAS ,EXPREC 


FATFLG,@15. 
999% 
PC,CKDROP 


PC, TSTLOOP 
163% 
T36L00P 


TsT 


3° 
sLOCAL STORAGE FOR THIS TEST 


§° 
.B 
T36PACKET: 


LKB 


T36DATA: 


T36DSW: . 
T36BFR: . 


‘ 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 


; 
.-BLKB 
T36PKe2: 
. WORD 
. WORD 


10-<, -TSV2E7> 


100004 
T36DATA 
.¢) 


10-<, -TSV2E7> 


100006 
T36BF 2 


. WORD 
TRAP 


sLOOP IF SELECTED 


sGET FIRST COUNTER 
sGET SECOND COUNTER 
s25-APR-83 REV B - COMPARE EM 


sBR, IF VALUES ARE CORRECT (OK) 


sERROR COUNT 

sTAPE NOT AT CORRECT SPEED 
TRAP 
. WORD 
WORD 
. WORD 

;LOOP IF SELECTED 
TRAP 

L1007e2: 

TRAP 


sIS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


300 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 


;ALL DONE THIS TEST 


TRAP 
. WORD 


sCOMMAND PACKET FOR TEST 


sWRITE CHARACTERISTICS COMMAND, WITH , ACK 


SEG 200 


PKTSSR 
CsCLP1 


CSERHRD 
820 


T36NAS 
EXPREC 


CsCLPi1 


CsESuB 


CsExIT 
L10070-. 


sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE O 
sMESSAGE BUFFER 


;WRITE SUB SYS MEM COMMAND, 
sADDRESS OF SELECT BLOCK DATA 


AND ACK 


G16 
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EST 8: RECORD BUFFERING 
5688 075554 00000 «WORD 0O 
io 075556 000006 -WORD 6. sSIZE OF DATA PACKET 
5692 075560 .BLKB 10-<. -'SV2E7> 
5694 075570 T36PK3; 
5695 075570 100005 . WORD 100005 sREREAD COMMAND, AND ACK 
5696 075572 T36RB: 
5697 075572 003116’ T36WB: .WORD FREE sADDRESS OF WRITE BUFFER 
5698 075574 000000 -WORD O 
5699 075576 000000 T36SZ: .WORD 0O sSIZE OF BUFFER (EXTENT) 
5700 EVEN 
5701 F 
57092 3 
5703 
5704 075600 T366F 2: 
5705 075600 010 T368S0: .BYTE 10 ;BSELO AREA 
5706 075601 200 T368S1: .BYTE 200 ;BSEL1 AREA 
5707 075602 000000 T36S2: .WORD O ;SEL 2 AREA 
dae 075604 000000 T36S3: .WORD O sDATA AREA 
3 
5710 3 
S711 
th | ;TAPE MOTION PACKET COMMAND VALUES 
1 
5714 075606 100205 T36RN: .WORD 100205 sREREKC DATA (NEXT) 
5715 075610 100605 T36WOR: .WORD 100605 sREREAD DATA RETRY 
5716 075612 102205 T36CON: .WORD 102205 sWRITE CONTINOUS 
5717 075614 177777 WORD 177777 sEND OF DATA 
5718 
5719 : 
5720 075616 000000 T36CNT: .WORD O ; TAPE TIMER COUNTER STORAGE AREA 
5721 075620 000000 T36CNU: .WORD 0 ;TAPE TIMER COUNTER STORAGE AREA 
gree 075622 000000 T360LY: .WORD O sDELAY COUNTER 
5724 
5725 
5726 sLOCAL TEXT MESSAGES FOR TEST 
5727 “0 
5728 
5729 
5730 075624 111 155 160 T36NAS: .ASCIZ ‘Improper Tape Controller Bufferi Speed’ 
5731 075675 124 141 160 T36WNG: .ASCIZ ‘Tape Position Incorrect After REREAD Previous (0PP=1)' 
5732 075763 124 123 123 T36ROF: .ASCIZ ‘TSSR Incorrect After READ DATA Command’ 
5733 076032 122 105 122 T36RRF: .ASCIZ ‘REREAD Previous (Space Reverse, Read Forward) Command Faiied 
5734 076127 120 117 123 T36SC: .ASCIZ ‘POSITION (Space Command) Failed, TSSR Not Correct’ 
5735 076211 122 111 102 T36LOR: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BOT' 
5736 076261 124 123 123 T36WOF: .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set’ 
5737 076336 111 154 154 T36L0Q: .ASCIZ ‘Ill 1 Mode Bits, Failed To Set ILC Bit § xSTO’ 
5738 076417 122 105 122 T36SSR: .ASCIZ ‘RERE COMMAND Not Accepted’ 
5739 076453 124 123 123 T36WDE: .ASCIZ ‘TSSR Not Correct After WRITE DATA Command 
5740 076525 124 141 160 T36B0T: .ASCIZ ‘Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)’ 
5741 076620 127 122 111 T36TIM: .ASCIZ ‘WRITE DATA RETRY''S Erase Tape Not Long En 
5742 076675 122 105 122 T36EOT: .ASCIZ ‘REREAD DATA OVER EOT GAVE No T TAPE STATUS ALE 
5743 076754 124 123 123 T36T™M: .ASCIZ ‘TSSR Not Correct After REREAD COMMAND mn oy 
5744 077031 122 145 167 T36RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
5745 077100 122 101 115 T36RNC: .ASCIZ ‘RAM Error, Correct Data Pattern Not In Ram’ 


5746 077153 124 123 123 T36AM3: .ASCIZ ‘TSSR Init. Failed After REREAD COMMAND 


TEST 
TE 


1 - HAROW 
ST 8: 


RECOR 
077222 


Hilo 


TEST 1-8 TEST MACRO M1113 O1-FEB-84 18:55 
0 BUFFERING 


012701 
012721 


177777 
000000 


075550’ 
100006 
075600' 
000006 


075600’ 


075462’ 


SEQ 202 


T360FL: .ASCIZ ‘Drive 7 Select Failed To Set “OFL” In TS 

36WOD: .ASCIZ ‘TSSR Not Correct After REREAD DATA comune SWB Bit Set’ 
T36WOC: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command’ 

T36VCK: .ASCIZ ‘CVC Set, Didn’‘t Reset VCK In Mess Buf fer’ 

T36BA: ASCIZ ‘TSBA Not Correct After REREAD DATA Command’ 

T36WSS: .ASCIZ ‘WRITE SUBSYSTFM MEMORY Command Not Accepted (RAM Read)’ 
T36LON: .ASCIZ ‘Reading Long Record Failed To Set RLL Bit In xSTO’ 

T36LOP: .ASCIZ ‘Reading Long Record Failed To Set RLS Bit In xSTO’ 

T : .ASCIZ ‘Residual Byte Count Incorrect After Snort Record Read’ 

T36TRL: .ASCIZ mre 7 ee Feiled To Give Tape Stetus Alert’ 
T36NEF: .ASCIZ ‘WRITE DAT TRY, At First Record, Failed To Set RIB Bit xST3' 
T36SCF ASCIZ ‘TSSR Not Correct After SPACE RECORDS Command’ 

T3ETSA: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY, Into BOT: 

T36WRF: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETR. Command’ 

T36DTA: .ASCIZ ‘Date Compare Error, Date Read From Tape Not Equal To writter:’ 
TST36ID mae -ASCIZ ‘Record Buffering’ 


o 


;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


sWRITE SUBSYSTEM MEMORY COMMAND 
a 
ie 


T36REST: 
SAVREG 
MOV @T36PACKET,R1 
MOV #100004 ,(R1)-> 
MOV @T36DATA,CR1)> 
CLR CR1)> 
MOV #10. eCR1)> 
MOV @T36BFR,CR1)>+ 
CLR (R1)> 
MOV #20.,(R1)-> 
CLR R1)>+ 
MOV 0,(R1) 
MOV 924. 

64%: MOV 0177777, T36BFR(R2) 
TST -(R2) 
CMP 60 ,R2 
BNE 64% 
RTS PC 

T36RTe2: 
SAVREG 
MOV @T36PK2,R1 
MOV #100006,(R1)-+ 
MOV OT36BF2,(R1)+ 
CLR CR1)- 
MOV 96.,(R1)> 
CLR (R1)> 
MOV #T36BF2,R1 
CLR CR1)> 
CLR CR1) 
RTS Pc 


T36RT3: 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


;SELECT DRIVE ZERO 

sNUMBER OF LOCATIONS TO BE oanaiinees 
sALL ONES TO MESSAGE BUFFER 

sNEXT LOCATION 

;AT END OF LOOP YET 

sKEEP GOING UNTIL DONE 

;RETURN 


sSAVE THE REGISTERS 

;START OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


;RETURN 


116 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 0O1-FEB-84 18:55 SEQ 203 
TEST 8: RECORD BUFFERING 
5804 100764 SAVREG sSAVE REGISTERS 
5805 100770 012701 075570' MOV @T36PK3,R1 sSET UP POINTER ADDRESS 
5806 100774 005021 CLR (R1)> sCOMMAND SPACE 
5807 100776 005021 CLR (R1)> sADDRESS OF DATA BLOCK 
5808 101000 005021 CLR CR1)> sEXTENDED ADDRESS 
5809 101002 005011 CLR (R1) ;SIZE OF DATA TRANSFER BLOCK 
5810 101004 000207 RTS PC ;RETURN 
5811 101006 ENDTST 
101006 10070: 
5812 101006 104401 * TRAP CseTsT 
5813 .SBTTL TEST 9: FUNCTION TIMING 
5814 3¢ 
5815 Fy 
5816 sTHIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 
5817 sRECORDS, GAPS, AND EXTENDED GAPS OF THE PROPER LENGTH. 680° 4 LOW 
5818 ;AND HIGH SPEED MODES ARE TESTED. IT IS ALSO VERIFIED THAT A 
5819 ;SPACE RECORDS COMMAND WITH A RECORD COUNT OF 80 OR MORE, AND A 
5820 ;SKIP TAPE MARKS COMMAND WITH A COUNT OF 2 OF MORE, a THE 
5821 ;TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF A 
5822 sREAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES Bry 
5823 sTIMING VARIOUS TAPE-MOTION OPERATIONS, USING A NUMBER OF 
5824 ;DIFFERENT TEST RECORD LENGTHS. 
5825 F 
5826 3 
5827 4 
5828 101010 BGNTST 
101010 T9:: 
5829 101010 012737 006166' 002172’ MOV GEPRT1,EPRTSW s;PRIMARY ERROR MESSAGE 
5830 101016 004737 017166' JSR PC .KTOFF 3 TURN KT OFF 
5835 101022 012700 105243’ MOV @TST37ID,RO sASCII MESSAGE TO IDENTIFY TEST 
5836 101026 004737 016402’ JSR PC, TSTSETUP ;00 INITIAL TEST SETUP 
5837 101032 012737 000005 002210’ MOV @5,LOOPCNT sPERFORM S ITERATIONS 
te 101040 005037 102306’ CLR T37CNT ;CLEAR TAPE RECORD COUNTER 
3? 
5840 ; 
5841 ;TEST 9, SUBTEST 1 
5842 ; 
5843 : 
5844 : 
5845 : 
5846 ig 
5847 
5848 101044 T37LO00P 
5849 
5850 101044 BGNSUB ;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
101044 T9.1: 
101044 104402 TRAP CsBSuUs 
5851 101046 005037 002216’ CLR INTRECV s INTERRUPT INDICATOR 
5852 101052 005037 102306’ CLR T37CNT ;TIMER FOR WRITE DATA SPACING 
5853 101056 005037 102310’ CLR T37CNU sTIMER FOR WRITE DATA RETRY SPACING 
5854 101062 004737 105264’ JSR PC, T37REST 3;SET COMMAND PACKET 
5855 101066 004737 105356’ : JSR PC, T37RT2 ;SET UP OTHER COMMAND PACKET 
5856 101072 004737 105420’ ‘ JSR PC, T37RT3 3;SET UP OTHER COMMAND PACKET 
5857 101076 012737 176750 102312 MOV #65000. , T37DLY ;SET UP DELAY COUNTER 
5858 101104 004737 015664’ 10$: JSR PC,SOFINIT 300 INITIALIZE ON CONTROLLER 


5859 101110 103426 BCS 20s ;BR IF INIT WAS OK 


TEST 


1 _ - HARDWARE TEST 1-8 TEST 


TEST 9: FUNCTION TIMING 


5860 


5901 


101112 
101112 
101116 
101120 
101124 
101126 
101132 
101134 
101140 
101142 
101146 
101150 
101154 
101156 
101156 
101160 
101162 
101164 
101166 


101174 


101312 


011724° 
013737 


012704 


000250 
002116' 
177772 
177756 
102312’ 
002214' 


002174’ 


102130’ 
010552’ 


002214' 


010704' 
000002 
002214' 


102160' 
000002 


002214' 


J16 
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102150’ 20%: 


23%: 


30$: 


40$: 


DELAY 


CKLOOP 


250 


RO,R1 
ERRNO, SF TERR, SF IMSG 


UNITN, T370SW 


@TS7PACKET,R4 
PC,WRTICHR 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


PC ,REWIND 

30$ 

TSSRC(RS),R1 

RO,R4 

FATFLG 

ERRNO, T37RWN,PKTSSR 


T37BFR+6,R1 


FATFLG 
ERRNO, T37BOT ,EXPREC 


sDELAY ABOUT .25 SEC 


sBUMP COUNTER 

3BR, IF COUNTER NOT DONE 
sERROR COUNT 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS “_ 


;SET UP UNIT NUMBER 


SEQ 204 


eee 
wanes 
-6(PC) 

apr 

-22(PC) 


2 


;SUBROUTINE NEEDS PACKET ADDRESS 


s ISSUE WRITE CHARACTERISTICS 

3;BR, IF COMMAND ISSUED OK 
sERROR COUNT 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC —— 


. WORD 
;LOOP IF SELECTED 
TRAP 


;CALL TAPE REWIND COMMAND 
3BR, IF NO PROBLEM 
;GET TSSR CONTENTS 
;GET PACKET ADDRESS 


sERROR COUNT 
sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 


;PICK UP xSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 

3;BR, IF EQUAL (OK) 


;ERROR COUNT 

;TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
- WORD 
. WORD 

;LOOP IF SELECTED 
TRAP 


CSERHRD 
902 

WRTMSG 
SF IMSG 


CsCLP1 


CSERHRD 
903 
T37RWN 
PKTSSR 


CsCLP1 


CSERHRD 
904 


T37B0T 
EXPREC 


CscLP1 


TEST 1 - HARDWARE TEST 
TEST 9: FUNCTION TIMI 


101314 


012703 


012727 
000000 
013727 
000000 
005367 


000144 

003116' 

140005 
260’ 


010704 
000002 
002214’ 


102160’ 
000002 


002214’ 


102260’ 


002116’ 
177772 


102262' 
102260' 


102266' 


65$: 


70$: 


130$: 


1408: 


102262' 
102260’ 


NC 
DELAY 


K16 
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#100. »R3 

FREE, T37WB 
#140005, T37PK3 
OT37PK3,R4 


FLG 
ERRNO, T37WOC ,PKTSSR 


. 

athe » REWIND 
TSSRCRS), R1 
RO,R 


FATFLG 
ERRNO, T37RWN,PKTSSR 


T37BFR+6,R1 
R1,R2 
+ pet Saeed 


LG 
ERRNO. T37B0T ,EXPREC 


@T37PK3,R4 
031. ,T37RB 
#140010, T37PK3 
R4, TSOBCRS) 
gan stil 


SEQ 205 
sNUMBER OF RECORDS TO BE WRITTEN 
sSTARTING WRITE BUFFER ADDRESS 
sWRITE DATA,ACK,CVC*=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
sBR, IF OK 

sERROR COUNT 
;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 905 
«WORD T37WOC 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLP1 
sDEC RECORD COUNTER 
;BR, IF MORE RECORDS TO WRITE 
sCALL_ TAPE REWIND COMMAND 
:BR, IF NO PROBLEM 
sGET TSSR CONTENTS 
3GET tone | ADDRESS 
RROR COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
«WORD 906 
«WORD T37RWN 
«WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CscCLP1 
;PICK UP XSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
7BR. IF EQUAL (OK) 
sERROR COUNT 
sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
«WORD 907 
-WORD 137B0T 
«WORD EXPREC 
;LOOP IF SELECTED 
TRAP CsCLP1 
sSET UP PACKET ADDRESS 
sSET UP RECORDS TO SPACE OVER 
sACK,CVC=1,SPACE FORWARD COMMAND 
; ISSUE COMMAND 
;BUMP TIMER 
;DELAY ABOUT 100US 
MOV #1,€PC)> 
«WORD O 
MOV LSDLY,(PC)- 
-WORD O 
DEC -6(PC) 


5987 


1 
101770 


016501 


177756 


000002 
000200 


000200 


002214' 


010704" 


000002 
002214’ 


102160’ 
000002 


002214’ 


102260’ 
000121 
140010 
000000 
102310' 
000001 
002116' 
177772 
177756 


000002 


102262' 
102260’ 


160$: 


170$: 


175$: 


2508: 
252s: 


L16 
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TSSRCRS),R1 
SR,R1 


LG 
ERRNO, T37SCF ,PKTSSR 


178 


RO,R 

TSSRCRS), R1 

FATFLG 

ERRNO, T37RWN,PKTSSR 


ht Agta 


LG 
ERRNO, T37B80T ,EXPREC 


@T37PK3,R4 
#81.,1T37RB 
#140010, T37PK3 
R4, TSOBCRS) 
bie 


TSSRCRS),R1 


sGET TSSR 
sCHECK FOR TSSR‘S SSR SET 
sKEEP COUNTING UNTIL SET 
sSET UP EXPECTED 
sWAS EVERYTHING OK 
BR, IF “tn TS WELL 
RROR COUNT 
SPACE FORUARD DION’ T “aa 


sLOOP IF SELECTED 


;CALL TAPE REWIND COMMAND 

BR, IF NO PROBLEM 

;GET PACKET ADDRESS 

;GET STATUS FROM TSSR 
sERROR COUNT 

sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 


sPICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 

sBR, IF EQUAL (OK) 


sERROR COUNT 

3 TAPE Not AT BOT AFTER REWIND 
TRAP 
- WORD 
. WORD 
- WORD 

;LOOP IF SELECTED 
TRAP 


;SET UP PACKET ADDRESS 
;SET UP RECORDS TO SPACE OVER 


sACK,CVC=1,SPACE FORWARD COMMAND 
COMMAND 


IME 
sDELAY ABOUT 100US 


;GET TSSR 


SEQ 206 


<i 
-22(PC) 
. -20 


CSERHRD 
908 


T37SCF 
PKTSSR 


CsCLP1 


CSERHRD 
909 


T37RWN 
PKTSSR 


CsCLP1 


— 


737801 
EXPREC 


CsCLP1 


Sake 
 peaaiahattet 
hor a 


“2acC) 
-20 
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rest 9; pAnQuars Taine 8 TES CRO M111 01-FEB-84 18:55 SEQ 207 

5988 101774 032701 000200 BIT @SSR,R1 3 CHE FOR _TSSR'S SSR SET 

5989 102000 001755 BEQ 252s sKEEP COUNTING UNTIL SET 

5990 102002 012702 000200 MOV @SSR,R2 3SET UP EXPECTED 

5991 102006 020201 CMP R2,R1 sWAS EVERYTHING OK 

5992 102010 001406 BEQ 260$ ;BR, IF ALL IS WELL 

5993 102012 005237 002214’ INC FATFLG ;ERROR COUNT 

5997 102016 ERRHRD ERRNO, T37SCF ,PKTSSR +SPACE FORWARD DION’ T WORK OUT 
102016 104456 TRAP CSERHRD 
102020 001617 -WORD 911 
102022 104727' . WORD T37SCF 
102024 011736’ . WORD PKTSSR 

5998 102026 2608: CKLOOP ;LOOP IF SELECTED 
102026 104406 TRAP CSCLPL 

5999 102030 013701 102306’ MOV T37CNT,R1 ;TIME FOR WRITE SPACING 

6000 102034 013702 102310’ MOV T37CNU,R2 sTIME FOR WRITE RETRY SPACING 

6001 102040 042701 009077 BIC #000077 ,R1 ;SETTING UP CONSTANTS 

6002 102044 042702 000077 BIC #000077 ,R2 ;SETTING UP CONSTANTS 

6003 102050 020102 CMP R1,R2 ;CHECK FOR DIFFERENCE 

6004 102052 003406 BLE 300$ ;BR, IF GOOD 3888 CHECK aaaa 

6005 102054 005237 002214’ INC FATFLG sERROR COUNT 

6009 102060 ERRHRD ERRNO, T37TIM,EXPREC ;TIME WAS NOT DIFFERENT ENOUGH 
102060 104456 TRAP CSERHRD 
102062 001620 WORD 912 
102064 103254’ WORD T37TIM 
102066 015364’ -WORD EXPREC 

6010 102070 300$: CKLOOP ;LOOP IF SELECTED 
102070 104406 TRAP CSCLP1 

6011 102072 ENDSUB g<ee eee eee eKe END SUBTEST >>>>>>>>>>>> 
102072 10074: 
102072 104403 TRAP CsESUB 

6012 102074 023727 002214’ 000017 CMP FATFLG, #15. ;IS ERROR COUNT AT 25 

6013 102102 103402 BLO 999$ ;BR, IF LESS THAN 25 

6014 102104 004737 017074' JSR PC ,CKDROP ;TRY TO DROP THE UNIT 

6015 102110 999%: 

6016 3 

6017 ; 

6018 ; 

6019 102110 004737 016350' JSR PC, TSTLOOP 300 WE NEED TO ITERATE TEST 

6020 102114 103002 Bcc 163$ ;BR, IF NO LOOP REQUIRED 

6021 102116 000137 101044’ JMP T37LOOP sEXECUTE AGAIN 

6022 102122 163%: 

6023 102122 EXIT TST ;ALL DONE THIS TEST 
102122 104432 TRAP CSEXxIT 
102124 003316 . WORD L10073-. 

6024 

6025 ze 

caer ;LOCAL STORAGE FOR THIS TEST 

6029 102126 -BLKB 10-<. -TSV2E7> 

6031 102130 T37PACKET: ;COMMAND PACKET FOR TEST 

6032 102130 100004 - WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH , ACK 

6033 102132 102140’ .» WORD T37DATA sADDRESS OF CHARACTERISTICS BLOCK 

6034 102134 000000 . WORD c¢) 

6035 102136 000012 . WORD 10. ;STARTING VALUE OF BLOCK SIZE 

6036 102140 T37DATA: ;CHARACTERISTICS DATA BLOCK 

6037 102140 102152’ . WORD T37BFR ;ADDRESS OF MESSAGE BUFFER 

6038 102142 000000 . WORD 0 


Bi 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 0O1-FEB-84 18:55 SEQ 208 
TEST 9: FUNCTION TIMING 
6039 102144 000024 WORD 20. sLENGTH OF MESSAGE BUFFER 
6040 102146 000000 -WORD 0O 
6041 102150 000000 T370SW: .WORD O sSELECT ORIVE O 
coat 192152 T37BFR: .BLKW 25. sMESSAGE BUFFER 
3 
oes sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
3 
6047 102234 .BLKB 10-<. -TSV2E7> 
6049 102240 T37PK2: 
6050 102240 100006 WORD 100006 sWRITE SUB SYS MEM COMMAND, AND ACK 
6051 102242 102270' . WORD T376F2 sADDRESS OF SELECT BLOCK DATA 
6052 102244 000000 -WORD 0 
ees 102246 000006 . WORD 6. sSIZE OF DATA PACKET 
6 
6056 102250 .BLKB 10-<.-TSV2E7> 
6058 102260 T37PK3: 
6059 102260 100005 . WORD 100005 sREREAD COMMAND, AND ACK 
6060 102262 T37RB: 
6061 102262 003116’ T37WB: .WORD FREE sADDRESS OF WRITE BUFFER 
6062 102264 000000 -WORD O 
6063 102266 000000 T37SZ: .WORD O ;SIZE OF BUFFER (EXTENT) 
6064 .EVEN 
6065 : 
6066 3 
6067 : 
6068 102270 T376Fe: 
6069 102270 010 T378SO: .BYTE 10 ;B8SELO AREA 
6070 102271 200 T37BS1: .BYTE 200 sB8SEL1 AREA 
6071 102272 000000 T37S2: .WORD 0O 3SEL 2 AREA 
rede 102274 000000 T3783: .WORD O ;DATA AREA 
3 
6074 i 
6075 -EVEN 
Sor? sTAPE MOTION PACKET COMMAND VALUES 
6078 102276 100205 T37RN: .WORD 100205 sREREAD DATA (NEXT) 
6079 102300 100605 T37WOR: .WORD 100605 sREREAD DATA RETRY 
6080 102302 102205 T37CON: .WORD 102205 sWRITE CONTINOUS 
6081 102304 177777 .» WORD 177777 sEND OF DATA 
6082 
6083 : 
6084 102306 000000 T3S7CNT: .WORD O sTAPE TIMER COUNTER STORAGE AREA 
6085 102310 000000 T3S7CNU: .WORD 0 ; TAPE TIMER COUNTER STORAGE AREA 
oot 102312 000000 TS70LY: .WORD 10) sDELAY COUNTER 
6088 :¢ 
6089 sLOCAL TEXT MESSAGES FOR TEST 
6090 3- 
6091 
6092 
6093 102314 124 141 160 T37WNG: .ASCIZ ‘Tape Position Incorrect After REREAD Previous (0PP=1): 
6094 102402 124 123 123 T37ROF: .ASCIZ ‘TSSR Incorrect After READ DATA Command’ 
6095 102451 122 105 122 T37RRF: .ASCIZ ‘REREAD Previous (Space Reverse, Read Forward) Command Failed 
6096 102546 120 117 123 137SC: .ASCIZ ‘POSITION (Space Command) Failed, TSSR Not Correct’ 
6097 102630 122 111 102 T37LGR: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO ROT’ 
6098 102700 124 123 123 T37WOF: .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set’ 


6099 102755 111 154 154 T37L0Q: .ASCIZ ‘Illegal Mode Bits, Failed To Set ILC Bit In xSTO’ 


Cl 


{Es} ly; PORP WORE ftalnd 8 TEST MACRO M1113 0O1-FEB-84 18:55 SEQ 209 . 
6100 103036 122 105 122 sb Lays -ASCIZ ‘REREAD COMMAND Not Accepted’ 
4101 103072 124 123 123 TS37WOE: .ASCIZ ‘TSSR Not Correct After *ORITE DATA RETRY Command,At BOT’ 
~'M2 103161 124 141 160 TS37BOT: .ASCIZ ‘Tape Not At BOT After REWIND Command (BOT Not Set In xSTO): 
£103 103254 127 122 lil TS37TIM: .ASCIZ ‘WRITE DATA RETRY''S Erase Tape Not Long wr 
6104 103331 122 105 122 TS7EOT: .ASCIZ ‘REREAD DATA OVER EOT GAVE NO 0 TAPE STATUS ALERT’ 
6105 103410 124 123 123 T37T™: .ASCIZ ‘TSSR Not Correct After REREAD COMMAND Re ject’ 
6106 103465 122 145 167 TS37RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
6107 103534 122 101 115 TS7RNC: .ASCIZ ‘RAM Error, Correct Date Pattern Not In Ram’ 
6108 103607 124 123 123 TS7AM3: .ASCIZ ‘TSSR Init. Failed After REREAD COMMAND’ 
6109 103656 104 162 151 TS370FL: .ASCIZ ‘Drive 7 Select Failed To Set "“OFL” In TSSR’ 
6110 103731 124 123 123 T37WOD: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command, SwA Bit Set’ 
6111 104021 124 123 123 T37WOC: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command’ 
6112 104074 103 126 103 T37vVCK: .ASCIZ ‘CVC Set, Didn’'t Reset VCK In Mess Buf fer’ 
6113 104147 124 123 102 T37BA: ASCIZ ‘TSBA Not Correct After REREAD DATA Command’ 
6114 104222 127 122 111 T37WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
6115 104311 122 145 141 TS7LON: .ASCIZ ‘Reading Long Record Feiled To Set RLL Bit In xSTO’ 
6116 104373 122 145 141 TS7LOP: .ASCIZ ‘Reading L Record Failed To Set RLS Bit In xSTO’ 
6117 104455 122 145 163 37PBP: .ASCIZ ‘Residual Byte Count Incorrect After Short Record Read’ 
6118 104543 122 145 141 T37TRL: .ASCIZ ‘Readi "8 ne Record Failed To Give Tape Status Alert’ 
6119 104631 127 122 111 TS7NEF: .ASCIZ ‘WRITE DAT ETRY, At First Record, Failed To Set RIB Bit xST3° 
6120 104727 124 123 123 TS37SCF: .ASCIZ ‘TSSR Not Correct After SPACE RECORDS Command’ 
6121 105004 124 123 123 T37TSA: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY, Into BOT’ 
6122 105066 124 123 123 TS7WRF: .ASCIZ ‘TSSR Not.Correct After WRITE DATA RETRY Command’ 
6123 105146 104 141 164 T37D0TA: .ASCIZ ‘Date Compare Error, Date Read From Tape Not Equal To Written’ 
6124 105243 106 165 156 TST37I0: -ASCIZ ‘Function Timing’ 
6125 EVEN 
6126 " 
6127 
6128 i ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
6129 sWRITE SUBSYSTEM MEMORY COMMAND 
6130 : 
6131 3: 
6132 
6133 105264 T37REST: 
6134 105264 SAVREG sSAVE THE REGISTERS 
6135 105270 012701 102130' MOV @T37PACKET,RI1 s;START OF THE PACKET 
6136 105274 012721 100004 MOV #100004 ,(R1)-+ sWRITE SUBSYSTEM MEM. WITH ACK, 
6137 105300 012721 102140' MOV @T37DATA,(R1 D> sADDRESS OF CHARAISTICS DATA BLOCK 
6138 105304 005021 CLR (R1)+ sEXTENDED ADDRESS 
6139 105306 012721 000012 MOV 10. ,CR1)> sSIZE OF DATA BLOCK IN BYTES 
6140 105312 012721 102152’ MOV OTS7BFR,C(CR1)> sADORESS OF MESSAGE BUFFER 
6141 105316 005021 CLR (R1)-> 
6142 105320 012721 000024 MOV @20.,(R1)>+ ;LENGTH OF MESSAGE BUFFER 
6143 105324 005021 CLR 1). 
6144 105326 012711 000000 MOV #0,(R1) :SELECT ORIVE ZERO 
6145 105332 012702 000030 MOV 024, ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
6146 105336 012762 177777 102152 64$: MOV 0177777, T37BFRCR2) sALL ONES TO MESSAGE BUFFER 
6147 105344 005742 TsT -(R2) sNEXT LOCATION 
6148 105346 022702 000000 CMP 0 ,R2 sAT END OF LOOP YET 
6149 105352 001371 BNE 64$ sKEEP GOING UNTIL DONE 
6150 105354 000207 RTS PC sRE TURN 
6151 
6152 
6153 105356 T37RT2: 
6154 105356 SAVREG sSAVE THE REGISTERS 
6155 105362 012701 102240: MOV @T37PK2,R1 s;START OF THE PACKET 
6156 105366 012721 100006 MOV 9100006,(R1)>+ sWRITE SUBSYSTEM MEM, WITH ACK, 
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012721 
008031 
012721 
005021 
012701 
005021 
005011 
000207 


012701 


102270' 
000006 


102270" 


102260' 


T37RT3: 


OT37BF2,R1 
(R1)> 

(RL) 

PC 


OT37PK3,R1 


3A SS_OF DATA BLOCK 
sEXTENDED ADDRESS 
sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRETURN 


sSAVE REG STERS 

sSET UP POINTER ADDRESS 
sCOMMAND SPACE 

sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

:SIZE OF DATA TRANSFER BLOCK 
sRETURN 


10073: 
TRAP 


SEQ 210 


CseTsT 


#! 
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TEST 9: FUNCTION TIMING 


1 
7 
12 
18 
19 


35 


105444 
105444 


105576 
105576 
105600 


105600 
105600 


000010 


000031 
105466 ' 
160010 
177776 


001031 
105522’ 


000000 
000776 


104 
111 
111 


000003 


001130 


105 
116 
116 


-TITLE TSV6 - PARAMETER CODING 


BGNMOD TSV6 
TSV6:: 


-SBTTL HARDWARE PARAMETER CODING SECTION 


THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNHRD 
-WORD L10075-L $HARD/2 


LSHARD:: 
GPRMA HPM1,0,0,160010,177776, YES ;GET TSSA/TSOB REGISTER ADDRESS. 
. WORD TS$CODE 
-WORD HPM1 


"wORD  TSHILIM 


GPRMA =HPM2,2,0,0,776, VES ;GET VECTOR ADDRESS. 
T$CODE 


-WORD TSLOLIM 
-WORD TSHILIM 


sGPRMD HPM3,.4,0,340,0,7,YES ;GET INTERRUPT PRIORITY. 


HPM1: -ASCIZ ‘DEVICE ADDRESS (TSBA/TSOB) ' 
HPM2;: -ASCIZ ‘INTERRUPT VECTOR ; 
HPM3: -ASCIZ ‘INTERRUPT PRIORITY 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


oe 

THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNSF T 
-WORD L10076-L$SOFT/2 
L$SOFT:: 
3 GPRML SPM1,0,-1, YES 3; GET TRANSPORT TEST FLAG. 


GPRML SPM4,2,-1,YES 
. WORD TSCODE 


; GET ITERATION CONTROL. 


TSV6 - PARAMETER CODING MACRO M1113 01-FEB-84 18:55 
SOFTWARE PARAMETER CODING SECTION 
105602 105636‘ .WORD SPM4 
105604 177777 .WORD -1 
56 ; GPRMD SPM6,4,0,7777,0,7777, YES ; GET LOCAL ERROR LIMIT 
57 ; GPRMD SPM7,6,0,7777,0,7777, YES ; GET GLOBAL ERROR LIMIT 
58 105606 ENOSFT 
.EVEN 
105606 L10076: 
59 
60 
61 105606 105 116 101 SPM1: -ASCIZ ‘ENABLE TRANSPORT TESTS ° 
62 105636 Lil 116 110 SPM4: -ASCIZ ‘INHIBIT ITERATIONS ‘ 
63 3SPM6: .ASCIZ ‘PER TEST ERROR LIMIT ° 
64 3SPM7: .ASCIZ ‘PER UNIT ERROR LIMIT ° 
65 .SBTTL PATCH AREA 
66 
i Hy 
ee ; FINALLY A GENEROUS PATCH AREA. 
69 3 
70 ; AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT7” HACK 
4 ; DESCRIBED IN “SUPPRG.MEM” (FOR REV C). 
3 
73 
74 105666 PATCH: : 
75 
76 ; .BLKw 32. 
4 105666 -BLKW so. 
79 3 IF NZ,.€377 
80 ; 7.937761 
81 Fy .ENOC 
82 105670 ying 3SET LAST USED ADDRESS. 
.EV 
105670 000000 .WORD 0 
105672 000000 -WORD 0 
105674 LSLAST:: 
83 105674 ENDMOD 
oe .SBTTL HARD CODED P-TABLE 
ee 
; DIAGNOSTIC IS PRE-PARAMETERIZED PER THIS TABLE 
88 105674 = BGNSE TUP 1 
89 105674 BGNPTAB 
105674 000000 -WORD 0 
105676 000003 -WORD L10101-./2-1 
105700 10077: 
90 105700 172522 . WORD 172522 
91 105702 000224 . WORD 224 
92 105704 000240 . WORD PRIOS 
93 105706 ENDPTAB 
105706 L10101: 
4 105706 ENDSE TUP 
96 000001 .END 


SEQ 212 


002 
002 
002 
002 
002 


TSV6 - PARAMETER CODING 
SYMBOL TABLE 
ADDSSR 012016RG 
ADR =* 000020 G 
AMBTSS 006525R 
ASSEMB= 000010 
A1716 = 000003 
BADDAT 003150RG 
BADSSR 015570RG 
BOVPCR= 177520 G 
BENBSW 002222RG 
BIE = 040000 
BITO = 000001 G 
BITOO = 000001 G 
BITO1 = 000002 G 
BITO2 = 000004 G 
BITOS = 000010 G 
BITO4 = 000020 G 
BITOS = 000040 G 
BITO6 = 000100 G 
BITO7 = 000200 G 
BITO8 = 000400 G 
BITO9 = 001000 G 
BIT1 = 000002 G 
BIT10 = 002000 G 
BIT11 = 004000 G 
BIT12 = 010000 G 
BIT13 = 020000 G 
BIT14 = 040000 G 
BIT1S = 100000 G 
BIT2 = 000004 G 
BITS = 000010 G 
BIT4 = 000020 G 
BITS = 000040 G 
BIT6 = 000100 G 
BIT7 = 000200 G 
BITS = 000400 G 
BIT9 = 001000 G 
BOE s 00 G 
BRINIT 004447R 
BSELO = 000000 
BSEL1 = 000001 
CHKAMB 015734R 
CHKMAN 020400RG 
CHKTSS 016226R 
CKDROP 017074R 
CKEMAX 016774R 
CKMSG 0112S50RG 
CKMSG2 011370RG 
CKRAM 011004RG 
CKRAM2 011114RG 
CMDPKT 021070RG 
CMPMEM 017560R 
CONFIG 017142R 
COUNT 002302RG 
CSRADD 002200RG 
CTAB 003156RG 
CTABE 003170RG 
CTABM 003156RG 


MACRO M1113 01-FEB-84 18:55 


CsaAu_ 
CSAUTO= 
Cs6RK = 
CSBSEG= 
CSBSUB= 
CsCEFG= 
CsCLCK= 
CSsCLEA= 
CsCLOS= 


002212RG 


002 FNOINT 
002 FORCER 
002 FREE 

002 FREEHI 


023226R 
023145R 
023063R 
023015R 
022756R 
002150RG 
000000 


000001 
016074R 


000060 
002214RG 
011612R 
012060RG 
012132R 
012201R 
017314R 
004205R 
002170RG 
003116RG 
003122R 


FRESIZ 


INCER' 
INTCPC 


003120RG 
004107R 
000015 


016040R 


002 
002 


INTFLA 
INTMAS 
INTR 

INTREC 


0000 
002210RG 


TSV6 - lla CODING 


SYMBOL TABLE 


MACRO M1113 0O1-FEB-84 18:55 


002170R 
005574R 
011734R 
011752R 
011770R 
011776R 
012014R 


L10073 


O$BGNS= 


012034RG 
012754RG 
012240RG 
013632RG 
000006 


PROASC 


015313R 


014310R 


002 
002 


RMPKTB= 
RMPKTE = 


014355R 


SEQ 214 


002 
002 
002 


TSV6 


SYMBOL TABLE 


003642R 
011724RG 
002160RG 
003146RG 
011656R 
003372R 
015664RG 
010356RG 
105606R 


- PARAMETER CODING 


002 


002 


MACRO M1113 O1-FEB-84 18:55 


TSEXCP= 


021376RG 
105444RG 
023276RG 
177562 G 


TSFLAG= 
TSFREE= 


T$GMAN= 000000 


TSHILI= 
TS$LAST= 
TSLOLI= 
TSLSYM= 
T$LTNO= 
TSNEST= 
T$NSO = 
T$NS1 = 
T$NS2 = 
TSPCNT= 
TSPTAB= 
TSPTHV= 
TSPTNU= 
TSSAVL= 
T$SEGL= 
TSSIZE= 
T$SUBN= 
TSTAGL= 
T$TAGN=® 


TSTEMP= 000000 


TSTEST= 
TSTSTM= 
TSTSTS= 
TS$$AU = 
TS$$AUT= 
TSSCLE= 
T$$DAT= 
T$sOU = 
T$$HAR= 
TS$$Hw = 
TSsINI= 
T$$MSG= 
TS$$PC = 
T$$PRO= 
TSSPTA= 
TS$SRPT= 
T$$SOF = 
TS$SRv= 
T$$SUB= 
Ts$Sw = 
sree 


T29AM3 


032114RG 
032140R 
033532R 
035156R 
035552R 
003136RG 
003140RG 
030207R 


026303R 
027511R 


T30WOF 


037343R 


TSV6 


T31AM3 


T31iwss 


046153R 
045241R 


- PARAMETER CODING 
SYMBOL TABLE 


MACRO M1113 0O1-FEB-84 18:55 


05454eaR 
054544R 


071206R 


072125R 


071261R 


100432R 
077566R 


TSV6_- PARAMETER CODING MACRO M1115 01-FEB-84 18:55 
SYMBOL TABLE 


T37AM3S 103607R 002 TS7RRF 102451R 002 16.1 055732R 
T37BA_ 104147R 002 TS7RT2 105356R 002 T7 063264RG 


T37CON 102302R 002 T37S3 102274R 002 T9 101010RG 
T37DAT 102140R 002 T3S7TIM 103254R 002 T9.1 101044R 
T37DLY 102312R 002 T37TM 103410R 002 VAM = 000200 G 
T370SW 102150R 002 T37TRL 104545R 002 UNITN 002174RG 
T37DTA 105146R 002 T37TSA 105004R 002 UNREC = 
T37EOT 103331R 002 T37VCK 104074R 002 USI 004115R 
T37LON 104311R 002 T37WB 102262R 002 WAITF 016140RG 
T37L00 101044R 002 T37WOC 104021R 002 WC.IFA= 000200 
T37LOP 104373R 002 T37WOD 103731R 002 WC.IFE= 000002 
T37L0Q@ 102755R 002 TS7WDE 103072R 002 WC.IGO= 000001 
T37LOR 102630R 002 T37WOF 102700R 002 WC.IRE= 000010 
TS7NEF 104631R 002 T37WOR 102300R 002 WC. TRW= 000004 
T370FL 103656R 002 T37WNG 102314R 002 WC.IOT= 000100 
T37PAC 102130R 002 T37WRF 002 WC.I1T= 000040 
T37PBP 104455SR 002 T37WSS 104222R 002 WC.ISR= 000020 
T37PK2 102240R 002 T4 046600RG 002 WF.IED= 000010 
T37PK3 102260R 002 T4.1 046630R 002 WF .IER= 
T37RB_ = 102262R 002 T4.2 047470R 002 WF.IHI= 000200 
T37RDF 102402R 002 14.3 0S50300R 002 WF.IRE= 000040 
T37RES 105264R 002 TS 052666RG 002 WF.IWF= 000020 
T37RN 102276R 002 15.1 052716R 002 WF.IWR= 000100 
T37RNC 103534R 002 T6 055 702RG 002 WF.I3R= 000002 

ABS. 000000 000 

000000 001 

ABS 105706 002 


ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 30363 WORDS ( 119 PAGES) 
DYNAMIC MEMORY: 20614 WORDS ( 79 PAGES) 
ELAPSED TIME: 00:39 


:35 
CZTSDA,CZTSDA. SEQ/-SP=SVC/ML, TSVLD, TSV22D, TSV3B, TSV4, TSV7B, TSV6 


e 


000004 
003114RG 


X$ALWA= 
002 X$FALS= 
002 X$SOFFS= 
002 X$TRUE= 
002 X1.COR= 


002 X1.0LT= 1 


002 X1.MBZ- 
002 X1.RBP= 
002 X1.SPA= 
X1.UNC= 
X2.BUF = 
xX2.ExT= 
X2.0PM= 
x2.RCE= 
X2.REV= 
X2.SPA= 
X2.UNI= 
X2.WCF = 
x3.0CK= 


X3.MBZ= 000006 


X3.MDE= 
x2.OPI= 
X3.REV= 
x3.RIB= 
X3.SPA= 
X3. TRF = 
X4.HSP= 
x4 .MBZ= 
x4 .RCE= 
x4. TSM= 
002 X4.WRC= 


SEQ 217 


